


April 1980 $2.00 U.S., 



/ 




microcomputing 



Computers Anonymous: Kick the habit. Pg. 30 



Magic: 

Build a light pen, 
and use it to 
control your 80. 
Pg. 38. 

I Ching: 

The progrann of 
changes. Pg. 123. 

Mork & Mindy 
Monitor: 

Use your 
Television as a 
computer display. 
Pg. 58. 

Reverse Video: 

Clearer display, 
just like reading a 
book. Pg. 54. 

Sound Effects: 

With this program 
you could make 
R2-D2 jealous. 
Pg. 68. 
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Plus: 

Software Reviews. Hardware Reviews, Book Review;-.. 
New column on Assembly Language. 
More than 30 articles and columns. 



*a trad0mark of 




The easiest, least expensive way to generate 

spectacular multi-color graphics, sharp two-color alphanumerics: 

Your computer, a color tv set and the Percom Electric Crayon™. 



Add the Electric Crayon^" to your 
system and your keyboard be- 
comes a palette, the tv screen 
your medium. 

You dab and stroke using one- 
key commands to create dazzling 
full-color drawings, eye-catching 
charts and diagrams. 

Or you run any of innumerable 
programs. Your own BASIC lan- 
guage programs that generate 
dynamic pyrotechnic images, 
laugh-provoking animations. 

From a combined alphanu- 
merics-semigraphics mode to a 
high resolution 256- by 192- 
element full graphics mode, the 
microprocessor-controlled Electric 
Crayon™ is capable of generating 
10 distinctly different display 
modes. 

Colors are brilliant and true, and 
up to eight are available depend- 
ing on the mode. 

As shipped, the Electric 
Crayon^" interfaces a TRS-80* 
computer. It may be easily 
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adapted for interfacing to any 
computer or to ari ordinary parallel 
ASCII keyboard. 

But that's not all 

The Electric Crayon is not just a 
color graphics generator/control- 
ler. 

It is also a complete self- 
contained control computer. With 
built-in provision for IK-byte of 
on-board program RAM, an 
EPROM chip for extending EGOS"^", 
its on-board ROM graphics OS, 
and a dual bidirectional eight-bit 
port — over and above the com- 
puter/keyboard port — for 
peripherals. The applications are 
endless. 

Shipped with EGOS™, 1K-byte of 
display memory and a com- 
prehensive user's manual that in- 
cludes an assembly language list- 
ing of EGOS"^" and listings of 
BASIC demo programs, the Elec- 
tric Crayon^" costs only $249.95. 



Options include: 

• LEVEL II BASIC color 
graphics programs on 
minidiskette: $17.95. 

• A 34-conductor ribbon 
cable to interconnect the Elec- 
tric Crayon"^" to a TRS-80*: 
$24.95. 

• RAM chips for adding re- 
fresh memory for higher den- 
sity graphics modes: $29.95 
per K-byte. 

• Electric Crayon"^" 
Sketchpad, a sketching grid 
of proportioned picture ele- 
ments (pixels) in a tv aspect 
ratio. For 128 x 192 or 256 x 
192 graphics modes. 11 -inch 
by 17-inch, 25-sheet pads: 
$3.95 per pad. 

SYSTEM REQUIREMENTS: the video cir- 
cuitry of the Electric Crayon^" provides di- 
rect drive input to a video monitor or mod- 
ified tv set. An internal up-modulator tor rf 
antenna input may be constructed by add- 
ing inexpensive components to Itie existing 
video circuitry. 

Prices ana spectlicaiKDns subjecl lo change wilhoul nolicB. 




PERCOM DATA COMPANY, INC 

211 N KIRBV GARLAND. TEXAS 75043 
12141372-3121 



'" = Uademark of Perctyn Daia Company. Inc 

• = trademark o' Tandy Radio Shacl< Corporation whicn has no felalionship to Percom Data Company 

Get into computer color graphics the easy, low-cost way with a Per- 
com Electric Crayon^". Available at Percom dealers nationwide. Call 
toll-free, 1-800-527-1592, for the address of your nearest dealer, 
or to order direct if there is no Percom dealer in your area. 
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BASIC SOFTWARE LIBRARY 

NOW • 10 • Vblumes and Growing 

IS SPONSORING A 

SI 0000.00 Give Away 

And unlike others we are giving a large portion in CASH that you Don't have to spend with us. You are 
eligible NOW! You may already be entered. More details in future advertisements. 

We have over 1 00,000 in circulation since 1975 and we are still around and That's more than Anyone else can say. We 
used to sell hundreds of programs individually, the programs in Volume X were sold for several years at over $10,000, 
in Volume III for over $6,000 but a few years ago we decided to promote software to the mass public and It was an 
instant success. We are still several years ahead of our time in our marketing concepts as well as our products and we 
are going to be making another major change in the market. We are going to offer our programs in cassette form. NOT 
just one of two programs like everybody else. But a book full of programs for just $9.95. 

For Homeowners, Businessmen, Engineers, Hobbyists, Doctors, Lawyers, Men and Women 



Vor.lS24.95 


Vol.ir$24 


Business & 


Animals Four 


Binomial 


Personal 


Astronaut 


Chi-Sq. 


Baol<keeping 


Bagel 


Coeff. 


Programs 


Bio Cycle 


Confidence 1 




Cannons 


Confidence 2 


Bond 


Checkers 


Correlations 


Building 


Craps 


Curve 


Compound 


Dogfight 


Differences 


Cyclic 


Dual Plot 


Dsclsion 1 


Judy 


Exp-Distri 


Decision 2 


Line Up 


Least Squares 


Depreciation 

Efficient 


Pony 


Pelred 


Roulette 


Plot 


Flow 


Sky Diver 


Plotpts 


Installment 


Tank 


Polynomial Fit 


Interest 


Teach Me 


Regression 


InvsatmanlB 




Stati 


Mortgage 


A. Newman 


Stat 2 


Optimize 


J.F.K. 


T-Disirlbulion 


Order 


Linus 


Unpaired 


Perl Tree 


Ms. Santa 


Variance 1 


Rate 


Nixon 


Variance 2 


Return 1 


Noel Noel 


XY. 


Return 2 


Nude 




Schedule 1 


Peace 
Policeman 


APPENDIX A 


Games & 
Pictures 


Santa's Sleigh 

Snoopy 

Virgin 
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Beam 

Conv. 

Filter 

Fit 

Integration 1 

Integration 2 

Intensity 

Lola 

Macro 

Max. Min. 

Navaid 

Optical 

Planet 

PSD 

Randl 

Rand 2 

Solve 

Sphere Irian 

Stars 

Track 

Triangle 

VariaEle 

Vector 



Vol. Hi 

$39.95 

Billing 

Inventory 

Payroll 

Risk 

Schedules 

Shipping 

Stocks 

Switch 

Vol. VI 

$49.95 

Mini-Ledger 
Payroll 

Inventory 

Peproc. 

Ledger 



Vol. VII 
$39.95 

Chess 

Medbll 

Wdproc 

UtiSty 



Vol. IV 
$9.95 

Bingo 

Bonds 

Bull 

Enterprise 

Football 

Funds 1 

Funds 2 

Qo-Moku 

Jack 

Life 

Loans 

Mazes 

Poker 

Popul 

Profits 

Cubic 

Rates 

Retire 

Savings 

SBA 

TIc-Tac-ToB 



Vol.V 
$9.95 

Andy Cap 

Baseball 

Compare 

ConfidIO 

Oescrip 

Differ 

Engine 

Fourier 

Horse 

Integers 

Logic 

Playboy 

Primes 

Probal 

Ouadrac 

Red Baron 

Regraaslon 2 

Road Runner 

Roulette 

Santa 

Slat 10 

Statu 

Steel 

Top 

Vary 

Xmas 

APPENDIX B 



Vol. VIII 

$19.95 
1040-Tax 

Balance 

Checkbook 

Instol 78 

Deprec 2 

APPENDIX C 

Favorites 
*10% Discount 



Vol. IX Vol. X 

$19.95' $69.95" 

Auto Intro. 

Cypher A/R 

Hurrtrec A/P 

ID Merlnv 

Lorana Check 

Map Assets 

Navigate Payroll 

Omega BalSh 

Patterna P/L 

Radar Year End 

RDF DataBase 

Tax Up 
Basic St. 
— Offer good til April 30, 1980 



Add S1 .50 par volume handling, all domestic shipments sent U.P.S. except APO 
and P.O. Box which go parcel post. Foreign orders add $6.00/volume for air 
shipment and make payable in U.S. dollars only. 

AVAILABLE AT MOST COMPUTER STORES 

Master Charge and Bank Amertcard accepted. 

Our Software is copyrighted and may not be reproduced or sold. 

Unlike others we have NOT raised our prices in five years 



Volume III — Part 1— Billing Inv. Pyrl. 
Volume VII— Part 1— Chess 
—available on TRS-80 level II 
compatible cassette $9.95 

Add $1.00 per tape Post./Handling 

Volume VI — Disk programs are 

compatible with TRS-80 disk basic 

Thedlskprogramsin Volumes VI, VII and X are 
written In (CP/M) M Basic and Disk Extended 
Microsoft Basic. Other programs writtan In BK 
Basic. 



OVER 116, 
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KEMCO, LTD. 

P.O. Drawer 2208E Petersburg, VA 23803 

24. hour Hot Line (800) 528-6050 
ext. 1184. In Arizona (800) 352-0458 



USE TODAY 



LEVEL IV PRODUCTS, INC. 

Ban(gIHn©iiM'g Hi^m^lgTr *iriEg°©®** goSSwaip® J§l®mm 
Welcomes Lance Micklus 

PERSONAL UTILITIES 

Personal Finance- 2 package program that will STSO-D'"- Contains extensions for disk drive systems 

maintain your checking account and maintain a file to exchange files with a time sharing computer or 

of all your cancelled checks. Thirty-three budgets another TRS-80. A practical, full-feature terminal 

can be assigned to the checks. A bill estimator helps program of professional quality. . . . Disk $79.95 
you to decide who gets paid this month. Cass. $9.95 

RX- Will produce a cross-reference table of all line 

Advanced Personal Finance - Budget program number references, and all variables used along 

automatically collects data from the Checking pro- with the line numbers they appear on for any TRS- 

gram. Finance will produce a 30 page report that 80 Level II or Disk Basic program Disk $24.95 

gives you the total picture of your financial posture. 

Ona32Kdisksystemthepackagewillhandleabout XREF - Cassette version RX. Produces a cross 
200 checks per month and 900 checks per year. reference of all line numbers and variables used in 
Disk $24.95 the program Cass. $19.95 

UTILITIES RENUMBER- a two program package that con- 

KVP- Machine language program allows you to tains a renumbering utilitiv and a rescue routine, 

build custom routines to control your keyboard, The renumber program enables the user to renum- 

video monitor and printer. Connects keyboard bounce, ^er a program. A message appears on the screen if 

Cass. $24.95 there are no undefined line numbers. The rescue 

Disk $29.95 routine will restore a program that would normally 

be lost with the NEW or CLOAD command 

KVP 232 - Works like KVP - designed to be Cass. $7.95 

compatible with the TRS232 from Small Systems 

Software Cass. $24.95 RENUMX-all three of the above programs on one 

^ r : •V^. f^'sk $29.95 cassette Cass. $24.95 

] ' " - GAMES 

MEAN CHECKERS MACHINE'" - Match your skills against the computer at nine levels of play, from 

novice to advanced expert computer response time increases accordingly with playing level Cass.$19.95 

Disk $24.95 
Coming Soon - Model 11 $29.95 

STAR TREK III.4 - One of the most advanced Trek-type games ever written. Explore as much of the 
galaxy as possible, destroy 20 Klingons and locate five Class M planets. Extensive use of graphics, including 
3-D galaxy Cass. $14,95 

DOGSTAR- Explore a giant space ship while searching for the princess. Try to avoid the guards and attack 

robots to rescue the princess before she reveals the secret location and strength of her Freedom Fighting 

Force. 

Supports 35 different environments Cass. $9.95 

** a product of Tandy Corp. 

" LEVEL IV PRODUCTS, INC. .. 

32238 Schoolcraft Rd, Suite F4 .Livonia, MI 48154 
313-525-6200 outside Michigan call 1-800-521-3305 

10% off on these listed programs DEALER ORDERS WELCOME 

Please add $1.50 for shipping. Open Tues. thru Sat 11-7 E.ST. 

SEND 25C FOR OUR NEW WINTER CATALOG 
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APPLICATION 
95 Itinerary, it's Tuesday, must be London. Ben Gorsky. 
114 Magazine Index. Find that article. William Klungle. 
121 Titler. Captions for your video. Marl< Rotzien. 
123 I Ching. The program of changes. Anthony Scarpelli. 

EDUCATION 

45 More Night School. Continuing education. Dr. Antonio Lopez. 
77 Pre-School Math. Teach your l<ids. Donald Hastings. 

GAMES 
60 Ball Box. Adventures of a Squot. James D. Lewis. 
116 Rock, Scissors, Paper. Play the game! Dodd Harris. 

GENERAL 

30 Computer Derelict. It couid happen to you. Barry Kornfefd. 
98 A Dealer's Experience. Even dealers have problems. S. M. DeFomo. 

HARDWARE 

38 Build a Light Pen. Your own magic wand. Wayne Holder. 

54 Reverse Video, fvlake your display easy to daer. Dennis Kitsz. 

58 Mork & Mindy Monitor. A dual purpose display. Hugo Jackson. 
110 CTR-41 Modifications. Bring it up to par. Delmer Hinrichs. 

REVIEWS 

70 RSM-2 Monitor. Extremely cost effective. Bruce Churchill. 
130 CBASIC Review. Nov*/ you C it! Ken Knecht. 
136 dilithlum Tapes. Tapes to read? Rod Hallen. 

STYLE 

103 INKEY$. Get rid of superfluous prompts? Gary Himler. 

128 Break Disable. Secure your programs. Jim Rastin. 

UTILITY 

62 Level II to Level I. CLOAD your system. Mike Wolf. 

68 Babybeep. Make R2-D2 jealous. Dennis Kitsz. 

80 Multiple USRs. Ten instead of one. John Veniimiglia. 

84 T-BUG For II. Customize it. Allen Curtis. 

90 MACROPOKE Monitor. Poke your 80. Larry Suter. 

106 Service Tape. Systemize your utilities. Howard Flatley. 

108 KBFIX Fix. Vvery usefulll! C. W. Anderson. 

133 BASIC Terminal. Straightforward software. Terry Noreauft. 



REGULARS 

8 80 Remarks. Wayne Green. 16 

8 80 Applications. Dennis Kitsz. 20 

9 Captain 80. Bob Liddil. 26 
10 Club 80. Ross Wirth. 28 
12 The Assembly Line. William Barden, Jr. 146 
15 Unlimited 80's. Sherry Smythe. 146 



80 Accountant. Michael Tannenbaum. 
Reviews. Chris Brown. 
Input. Why not you? 
NEWS. Michael Comendul. 
Preview. Next month in 80. 
Advertisers Index. 



ll\e cover pholograph by Reese Fowler shows some of the edilorial slati at a lunchtime management meeting. 
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Manuscripts are welcome al 80 Microcomputing, vie m\\ consider publication of any TRS80 oriented material. Guidelines for budding authors are available, please send 
a seH-addresseO envelope ana ask (or "How to Write for 80 Microcomputing." All material lo be putjlished will be paid for upon acceptance by Ihe Editor. Address all sub- 
missions tor the attention of the Managing Editor. Entire contents copyright 1980 by 1001001 Inc. No part of this publication may be reprinted, or reproduced by any 
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Send form #3579 to 80 Mic/ocomponng, Subscription Services, P.O. Box 981. Farmingdale, NY 11737. 
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Fellow TRS-80 User: 

I'd like to thank you for your interest in our products and, as our president, Bob Fiorelli, 
promised in our March ad, tell you something about MTC Customer Service, Customer 
Service begins when we take your order, but doesn't end there. Even though your order is 
tracked by computer, it receives the persona! attention only a concerned human being can 
provide. The order is checked and rechecked at each stage of processing to ensure that you 
get exactly what you ordered, at the price you expected to pay. Even with all the care your 
order is given, it will normally be shipped within one business day. About thirty-percent of 
all orders received each day are from prior customers. We constantly seek to improve tine 
products and services we offer you. our valued customer. 

I'd like to present three items of particular interest. First, our BYTE-BACK customer 
response cards, included with most of our products. These pre-addressed, postage-free 
business reply cards offer you a simple way to tell us what kind of job we're doing, and to 
let us know what kind of products you're interested in. Remember, the more products you 
buy, the more chances you have to BYTE-BACK! 

Second, MTC's exclusive QUE cards. Having worked with the TRS-80 since 1977, we 
can appreciate the fact that our customers want to use the features of powerful products, 
like APPARAT's NEWDOS+, as soon as possible, MTC has responded to this need with the 
introduction of the Quick User Education {QUE, pronounced "CUE") card. While not in- 
cluded with all our products, QUE cards provide ttie new user with the information needed 
to make immediate use of a product, without lengthy study of accompanying documentation. 

Third, MTC's product upgrade policy It has always been our view that when a product is 
enhanced, purchasers of earlier releases should be allowed to upgrade to the newer 
release for a portion of its cost, MTC is interested in having you as a customer for a long 
time. We make every attempt to keep you informed about new releases and offerings within 
each product line. 

Speaking of new products, did you notice REMSOFT's REMASSEM-l and H, C. Penn- 
ington's "TRS-80 DISK AND OTHER MYSTERIES ", from IJG. Inc? We don't generally offer 
non-MTC products. It's usually a matter of not meeting our standards. But we're really im- 
pressed with these two. We feel the addition of these products will complement our 
Technical Bulletin Service quite nicely. 

Because these ads are made up well in advance of the publishing of the magazine in 
which they appear, products may be available that do not appear in the ad. For example, 
APPARAT's long-awaited, expanded NEWDOS, tentatively called NEWDOS-80, is due for 
initial release this month. If it's available, MTC will be selling it. Some other things to look 
for from MTC include additional audio cassette-based educational products. An enhanced 
version of AIDS-II, tentatively called AIDS-II+, featuring expanded field definition, sorting 
and selection capabilities is being readied. Look for some new AIDS-II subsystems, also. 
TDAM, MTC's answer to the enigma of random files, is only the first of several "function in- 
terpreters". Look for similar products for screen and printer handling. Finally, watch for 
an integrated general business and accounting package (A/P, A/R, G/L & Payroll) on the 
Model II, for less than $200! It features user-defined account numbers, financial reports 
and more. 

Just one more thing, A customer-appreciation month is planned in 1980 (we're not say- 
ing when). For one month, and one month only, we will sell a box of diskettes for $19,80. 
Sorry, one box per customer. 

We at MTC look forward to providing you with the quality products and service you 
deserve and should expect. If we offered you anything less, we wouldn't be 
Meta Technologies Corporation. 



^. 



Sincerely 



O'OotXiJ 



TRS-80 and Radio Shach are regiitered 
Irademarhs ol Isndy Corp 
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mTc-SHIRTS 

HIGH-QUALITY. POLY-COTTON 
BLEND T-SHIRTS. White with Navy Blue | 
neck and sleeve "ringers". MTC logo on sleeve. 
Top quality transfers of your choice on front. 

Specify size (S.M.L.XL) and Transfer: 

• META TECHNOLOGIES MAKES EVERY BYTE 
COUNT! 

• DONT TOUCH MY BITS! 

• RAM it! 

• MICRO LOVERS TAKE SMALLER BYTES! 

mTc-SHIRTS $5.95 



Robert J. Schneider 
Customer Service 



FILESORT $29.95 

For Model II $49.95 

Sort ASCII files by any combination o( user- 
specified fields; ascending or descending, 
numeric or non-numeric keys. Optionalty retains 
original file. 



MTC AIDS-II 

Ailing informatron? Doctor it up with AIDS-II. This 
Automated Information Directory System is user- 
defined, features user-specified fields and 
print/display formats, conditional record selectton, 
updating of fields within records, sorting by any 
combination of fields, and much more! Unique 
"windowing" capability allows directories of 
unlimited size. Window size is typically 200 or more 
records in 32K. Can be used for mailing lists, client 
reference reporting, appointment "calendars", in- 
ventory records and other information systems. 
Easy to use. Defining a system takes about a 
minute. Formatting a report or defining a custom 
label, less than 30 seconds. Sorting 200 records 
takes less than 5 seconds. Add "subsystems ' for 
additional capabilities. 

MTC AIDS-II $49.95 

For Model II $79.95 

CALCULATION SUBSYSTEM (CALCS) 

Use for report generation involving basic manipula- 
tkin of numeric data, such as quantity & cost com- 
putatkins. balances carried forward and columnar 
totals. Expands capabilities with respect to inven- 
tory, accounting and other numerk:-t)ased informa- 
tbn systems, 

MTC CALCS $24.95 

For Modem $39.95 

MAILING/INFORMATION LIST 
SUBSYSTEM <MAILS) 

Use for report & label generatbn involving format- 
ting of primarily non-numeric data, such as 
custom, "N-up ' and "N-copy" label forms, index- 
type report formatting, and sub-fielding 
capabilities tor selection & print. Expands AIDS-II 
with respect to client/product reference systems, 
mailing lists and other non-numerk: information 
systems. 

MTC MAILS $24.95 

For Model II $39.95 

RECORD/FILE ORGANIZATION 
EXECUTIVE (REFORGE) 
Use for expanding, contracting or reformatting 
AIDS-II files. Convert random & sequential tiles to 
AIDS-II format. Use for converting mailing lists to 
AIDS-II. Includes MERGE & PURGE capabilities for 
combining smaller files into larger ones and remov- 
ing duplicate records, 

MTC REFORGE $24.95 

For Model II $39.95 



MAILSORT(Model I) $19.95 

MAILSORT replaces existing sort in Radio Shack 
Disk Mailing List® system. Sort by any combina- 
tion of fields, such as NAME, within CITY, within 
STATE, Hi-speed in-memory routine sorts 300 
records in approximately 60 seconds. Minimum 
32K recommended. 



PEEK&POKE $14.95 

Frustrated because PEEK and POKE have been 
removed from Model II BASIC? Satisfy your 
curiosity with PEEKSPOKE from MTC- Included 
are 8 bit and 16-bit (LSB, MSB) self relocating 
machine language routines, instructions, and demo 
program. 



Transfer PROGRAMS and DATA 
from MODEL I to MODEL II 

TRAN-SEND 



^ 



$49^5 



by MTC 



Requires MODEL II and MODEL I with disk & 
RS-232, Simple to use, not a kit - nothing else to 
buy. Complete with custom cable, S'/i " & 8" flop- 
pies, instructions. May be used over phone lines. 

Custom Cable only $ 19.95 

Suitable for use wilh Radio Shack' transfer proiiram(ACT 0131) 
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MAKES EVERY BYTE COUNT 

IN YOUR TRS-80® MODEL I OR MODEL II DISK SYSTEM 



PROGRAMMING f"^M!Vn FREE 

XnrM C Any 5, $79.80 """^ 

I UULO For Model II $119.80 



• NEW* •NEW* 

TDAM $19.95 

For Model 11 $29.95 

Having trouble with RANDOM FILES? With MTCs 
Table-Driven Access Method (TDAM) you'll never 
(ret over FIELDrng again. No knowledge of 
random access files Is required. Insert the TDAM 
"interpreter" into any BASIC program and type in 
a few DATA statements describing the information 
in your files. TDAM does the rest! Reads and 
writes fields and records of any type (even com- 
presses a DATE field into 3 bytes!). Features 
automatic file buffer allocation/deallocation, 
memory buffering, sub-record blocking/de- 
blocking, and handles up to 255 fields per record. 
Super fast and super simple! Complete with 
TDAM interpreter, instructions and demo pro- 
gram. 



> ^ ^ 

DIVERGE $19.95 

For Model II $29.95 

Compares two BASIC program files, showing the 
differences between them. Identifies & lists lines 
which have been inserted, deleted. & replaced. 
Use for version control. 



SIFTER $19.95 

For Model II .....$29.95 

Twelve in-memory highspeed sorts for use in any 
BASIC program: stable, non-stable, with/without 
tags, for numeric or string data. Random File 
Sort Included. Some sorts written in machine 
code. Includes sort subroutines, demo programs 
and Instructions. Relocate as needed with 
REBUILD. 



SHRINK $19.95 

For Model II $29.95 

Makes Every Byte Count!. Make programs 
smaller and faster! Combines lines & removes un- 
necessary code including remarks, without alter- 
ing program operation. Typk:ally reduces pro- 
gram size 25% to 40%. 



I 



REBUILD $19.95 

For Model II $29.95 

Reorganize programs for adding program code, 
faster execution, readability. Much more than sim- 
ple renumbering. Rearrange groups of statements 
within a program - automatically updates 
references to line numbers. Use with 
SUPERSEDE and MINGLE for maximum effect. 



SUPERSEDE $19.95 

For Model II $29.95 

A "must have" for the professional programmer 
or the serious amateur. Probably one of the 
greatest time-savers available. Write programs in 
shorthand - change variable names - generate 
rogram documentation - use with REBUILD and 
GLE to buiki new programs from old ones. 



K 



MINGLE $19.95 

For Model II $29.95 

Merge two files (Program or Data) into a single 
file. Data files may be merged in ascending or 
descending sequence with the ordering based on 
a user-specified comparison field. A very handy 
utility for consolidating data files. 



Single sided, Single density. Soft-sectored 

DISKETTES 



Verbatim B'A-inch 



$24 



95 

Box of 10 



Hard-sectored (10-hole), Box of 10 $26.95 

8 inch FLOPPIES 

Single-density, Box of 10 S29.95 

Double-density, Box of 10 $39.95 

PLASTIC LIBRARY CASES 

SVi-inch or 8-inch diskette case $3.25 

BVd-inch or 8-Inch diskette case 

(when purchased with each Box of 10) . . . $3.00 

FACTORY FRESH, ABSOLUTELY FIRST QUALITY 
Minimum order 1 box, NO order limit! 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS+II 

(hf\095 byApparat 
^^^ and MTC 

40 TRACK VERSION $109.95 

includes REF, RENUM, SUPERZAP, 
EDITOR/ASSEM., DISASSEM., DIRCHECK. and 
more! This Is the original NEWDOS with all of Ap- 
paratus utility programs, plus any 2 MTC PROGRAM- 
MING TOOLS (for Model I), of your choice. Includes 
exclusive MTC QUE (Quick User Education) card 



MTC TECH B.S. 

Oitr exclusive Technical Bulletin Service reveals 
the inside story on the TRS-8ff' I & 11. Sent by first 
class mail, bulletins are issued as the news breaks, 
not just once a month. Expensive, but worth it! No 
advertising or flyers, just pure Techn^al B. S.! 
Cancel any time - unused balance refunded. Free 
year-end subject index with 12-month subscrip- 
twn. Subjects have included "PEEK&POKE func- 
tuns for Model 11", "Machine Language Sort tor 
String Arrays", "Tandy Marketing Plans", and 
"Level II Memory Locations". Subscriptions may 
be back-dated to obtain prevkius Bulletins. 
1-Year Subscription 

(Includes free index) $36.00 

Monthly Subscription $3.00/mo. 



> 



Let your TRS-80® Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFTs unique package, 'INTRODUCTION 
TO TRS-80' ASSEMBLY PROGRAMMING" in- 
cludes ten 45-minute lessons on audio cassettes, a 
display program for each lesson providing illustra- 
tion & reinforcement, and a text book on TRS-80" 
Assembly Language Programming. Includes use- 
ful routines to access keyboard, video, printer and 
ROM. Requires 16K - Level II, Model I. 

REMASSEM-1 $69.95 



The perfect supplement for your 
NEWDOS+,irom IJG, Inc. 

"TRS-80 DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 

132 pages written in PUIN ENGLISH packed with 
HOW TO information with details, examples and in- 
depth explanations. Recover lost files and direc- 
tories, remove file protection, make BASIC pro- 
grams unlistable. How to use SUPERZAP, recover 
from DOS errors and MORE! 

TRS-80 DISK $22.50 



All products 

guaranteed for 

replacement only. 

Prices, Specifications & 

Offerings subject to 
change without notice. 



MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 



QUANTITY 

DISCOUNT 

INQUIRIES 

INVITED 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• C.O.D, 



Add $2.50 for 
shipping & 
handling 
$2.00 EXTRA 
for C.O.D. 
Ohio residents 
add bV2% sales tax. 




TO ORDER CALL TOLL FREE 

1-800-321-3552 

IN OHIO call (216)289-7500 (COLLECT) 

lYlETfl TECHUaLDGJES CQRPQRflTJaM 

26111 Brush Avenue, Euclid, Ohio 44132 



^2Q 



800226 
<>iTM TANDY CORP. 



i^ Reader Service— see page 147 
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go REMARKS 



^ 



by Wayne Green 



** Every new version 

of BASIC seems to have 

more flexibility, speed 

or simplicity,''' 



In view of the several terrible failures by other 
publishers in getting microcompuler maga- 
zines started in recent months. I was more than 
satisfied by ihe response to the first two issues 
of 80 Microcomputing. After seeing the first 
copies, dealers started to call asking for more. 

I received a nice letter from President Lew 
Kornfeid of Radio Shack, saying he was im- 
pressed with the magazine. Radio Shack had 
feared that ads for accessories might hurt sales 
of their own, but evidence that 80 is supporting 
their product should have a very positive dollar 
effect for Radio Shack. 

While some users may want to go Ihe route 
of alternate suppliers for accessories, many will 
prefer to slay with Radio Shack and their sup- 
port, including fast service. The fact that Radio 
Shack is keeping secrets from TRS-80 owners 
could tarnish their image and give substantia! 
impetus to those who may buy accessories from 
aJternaie sources. If these products are so terri- 
fying to Radio Shack, they really must be good, 
might go the reasoning. 

The 50,000 copies of Ihe first issue are going 
rapidly. We still have some available, but we 
are no longer accepting Charier Subscriptions 
which start with the first issue. 

Standard Language 

There are complaints now and then about 
BASIC not being standardized for microcom- 
puters. I've thought about this a good deal and 
my answer is this: Thank heaven there is no 
standard BASIC. This would mean that we 
could not continuously improve the software 
system. The fact is that present day BASIC is 
enormously better than the original Dartmouth 
version. 

Every new version of BASIC seems to have 
more fiexibilily, speed, or simplicity. There are 
some remarkable enhancements of the TRS-80 
BASIC ROM in the works and many enhance- 
ments of the disk operating system (DOS). 
Some of the newer DOS products are far ahead 
of even the Apparat improved TRSDOS. which 
1 understand is the subject of a lawsuit between 
Tandy and Apparat. 

Radio Shack is planning improvements as 
well. I understand ihey now have a new sup- 
plier of keyboards and hopefully the key- 
bounce problem will be resolved. One of the 
problems wiih the Radio Shack software fix 
is that other utility programs use the same 
memory area and wipe out the debounce rou- 
tine. This routine also slows down the rate at 
which data can be entered, causing con- 
siderable grief to fast typists. 

The TRS-80, supported by other firms, has 
developed to a point equal to the S-100 bus sys- 



tem about two years ago. Had Radio Shack 
standardized on the S-IOO bus and the ac- 
cessories developed for that sy.=;tem, TRS-80 
owners would have had music generating sys- 
tems, speech recognition, computer voice, plot- 
ters and telephone modems much earlier. 

Radio Shack is doing its best to keep up with 
the demand for hardware accessories and soft- 
ware, but the demand is far beyond what they 
can meet. Furthermore, some of the accessories 
are needed in more modest quantities and 
would not be profitable for RS lo develop and 
market. I suggest that RS aid and assisl firms 
providing this type of support as they have 
much to gain and little to lose. 

Past Lives 

In my February editorial I mentioned that 
during therapy a patient often must resolve past 
life problems before present life situations can 
be helped. In view of that, I was fascinated to 
run across a book called Past Lives Therapy. 
The therapy is quite similar to that used by 
myself and others with whom 1 corresponded 
some thirty years ago. An Ace paperback (no. 
65245X), it goes into what the author thinks is a 



new lype of therapy which he has used for the 
last ten years. The price: S2.25. 

Whether past lives and Iheir problems arc 
real or not makes no difference. The results are 
the same when you treat them as you would a 
current life trauma. Though the author makes 
no claims, this book docs come up with some 
powerful evidence that reincarnation is a fact. 

1 mentioned, loo, that we appear to see 
recorded memories of many lives tied in with 
our present life memories. The book presents 
further evidence that memory is truly in some 
other diniension and that the brain is merely a 
switchboard or computer able to access it. 

Public broadcasting's recent Nova series on 
Ihe brain repealed the fact ihai no one yet 
knows where memory is or how it works. All 
we have is some poor communication with it 
via the brain. I think the microcompuler and its 
logical method of searching memory will be 
able to help therapists improve this com- 
municalion substantially. 

I'll be interested in any experiments which 
evolve in this field. Searching memory is really 
a very mechanical situation and one which is 
ideal for the computer. ■ 



STpAPPllCATIONS 



by Dennis Kttsz 



• tThope to control my own little environ- 
Ameni using the TRS-80." Putting 
another load of wood into my stove to ward off 
the chill of Vermont's sub-zero environment, 1 
reread this first letter in response to my column. 
Here's a man who wants to know how to make 
his 80 work for him. Is the door really, locked, I 
ponder, keeping this novice from leaving the 
prison of the computer? 

Perhaps it seems .so, but there is always a key. 
A proper key fits into the lock, turns the 
cylinder, and the door opens revealing that en- 
vironment outside. 

The door to a computer's outside world is 
called a "port", and the TRS-80 contains 256 
of them. Let's try one. Run this program, and 
listen: 



10 Y'tIOO 

2t) FOR X = 1 TO i{)» 

.TO OUT 255,4:FOR 2 ^ 1 TO YiNEXT Z 

40 OUT 255.0:I-OR Z = 1 TO Y:NEXT Z 

50 Y = Y-1 

60 NEXTX 



Now change the first commands in line 30 to 
OUT 255.8. Run it again, and watch. 

Inside the computer, this door numbered 255 
will open and close at our command, yet all the 
other doors remain locked. How can they be 
opened? If you use a matching key, the doors 
will fall aside, opening up the passage-way to 
your "environment." So let's lake a look at 
that lock and key: 




This is a crude key, you can see, because 
there are either teeth rising lo a single height, or 
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no teeth at all. Our computer thinks of these 
teeth as voltages. We think of them in terms of 
numbers, (A tooth is a high voltage, a one; no 
tooth is a low voltage, a zero.) Our key number 
"code" looks like this: 

10 1 1 u 1 u 



We've got to read this key's code, so stay 
wiih me; it's binary lime. Quick now! Remem- 
ber how some of us learned math? The-one-in- 
ihe-hundreds-place-and-the-seven-in-the-tens- 
placc-and-the-eighi -in -I he-ones-place make 
. . . 178, of course. Well, then here's 178 in 
binary: 



128's 64's 32's 16's 8\ 4's 2's I'-S 

place place place place place place place place 

i 1 I 1 

128 32 16 2 



Below i.s the schematic of the electronic 
lock's tumbler, waiting to be set to match our 
code for port 178. The triangle is a buffer, a 
piece of hardware that protects the TRS-80 
from our explorations. The triangle with the 
circle at its point is an inverter, which reverses 
the value of the signal reaching its input: 



HII.S9S 



S1L.S% 



However elementary it may seem, this is the 
ceniral scheme of operation of a digital device. 
If we tap into our electronic "tumblers" before 
the inveners, our lock will open to a key of all 
ones; after ihe inverters, it will open to a key of 
all zeros. Next month we will build a prototype 
lock that we can settoopen withanyoneof our 
remaining 255 keys. 

So, here is your assignment, and it's a long 
one: get a low-wattage soldering iron and prac- 
tice soldering small pans. Borrow, build or 
steal a 5-voIt regulated power supply. Look in 
the ads in 80 Microcomputing, and order some 
integrated circuits: three 81 LS95, one 81LS96, 
two 74LS75 and one 74LS30. 

Also, you'll need a TRS-80 edge connector. 
Dig up a small transistor radio earphone, a 
100-ohm resistor, and a small "breadboard." 
Finally, take February's issue to bed and fall 
asleep learning a little about how binary and 
he-xadecimal numbers work. See you next 
month — don't forget your homework! 



Update 

In February's Applications column, 
KBEEPFIX plunged along too fast in 32-char- 
acter mode. Make one change: alter byte 7FAF 
from 7E to 00. In the BASIC version, change 
the last value in DATA line 50 from 126 to 0. 




CAPTAIN SiO 

hv Rnh i iHHil %^ ^^ 



by Bob Liddil 



Here's Captain 80, in his Software Secret 
Agent disguise, all set to get the .scoop on 
whai's up in the TRS-80 world this month. 
Dressed in tan irenchcoat and Sam Spade hat. 1 
blend in quite naturally with the computer store 
I'm visiting here in Cincinnati. 

Standing here in di.sguisc and listening lo a 
salesman pitch a piece of TRS-80 software lo 
an interested customer reminds me of a visit 
only a week before to a computer shop in 
Nashua, New Hampshire. Boih stores lean 
heavily on the .Apple and the other appliatice 
computers for iheir hardware sales. Bui (here 
the similarity ends. 

The Cincinnati owner has adopted a live and 
let live altitude toward the 80. He supports it 
wjih software in hi.s store — mostly games. 
After all, the 80 is not his mainstay. He wisely 
regards TRS-80 owners as computerisis. He 
knows that the new 80 owner is not sophisticat- 
ed in software or hardware, so the owner nur- 
tures him along, towards the day when he will 
move out of his 80 and into a color generating, 
joysiicking Apple or whatever. Smart owner. 

The other scorns the TRS-80 to anyone who 
will listen. There is no 80 software on his 
peghoard. 

The Cincinnati .store is out in the boonies, a 
fair clip from almost anywhere residential, but 
a popular place for micro enthusiasts to gather, 
even considering the drive. The Nashua store is 
in the middle of a good sized city, but was near- 
ly deserted when I was there. 

The moral to all this i.s simple. If your local 
computer shop does not stock software for 
your TRS-80, ii is because he does not want lo. 
Get on his case about it. If that fails, find a 
shop that WILL support your computer and 
support HIM. Tell your friends about the 
place. Show him he's made the right decision. 

Simulated FliKhl 

At Instant Software, things are really hum- 
min". Although they've dc-emphasized game 
programs (sigh), that docs not seem to have af- 
fected the quality of what they arc producing. 
Indeed, there is a marked improvement . In the 
forefront are two new flight programs prepar- 
ing to join the already iremenously popular 
Air Flight Simulation and Air Mail Pilot. They 
are two separate new packages. Night Flight 
and Jet Fighter Pilot. 

Jet Fighter Pilot is an event. It simulates any 
one of an array of military jets with such au- 
thenticity as to leave you breathless. One se- 
quence goes like this: Set Flaps, lolOO per- 
cent: Engine, spin turbine, add fuel at 4500 
RPM (less than that causes a fire); Throttle, 1 20 
percent (afterburners on); Launch, your 
choice, steam catapult from a carrier or land 
launch; Landing Gear (up); Attitude, - 180 to 
180 degrees. 



Now' that's just to get the thing into the air! If 
you want to fly it, be prepared for full maneu* 
verabiliiy; fully functioning airsurface con- 
trols; drop tanks; navigational computer; func- 
tional weapons computer; guided missiles; an 
enemy [o Tight. All this in 16K BASIC! 

Traditional Graphics 

Automated Simulation's Temple of Apshai 
program is unique. It uses the more traditional 
graphics technique to present its dungeon- 
oriented theme instead of the highly touted, but 
limited Adventure word recognition system. 

Beginning the game is the Innkeeper routine. 
I must confess that in all my years as a dungeon 
player and computerist i have never come 
across a salesman as hard to deal with as this 
Innkeeper. His job is to extract as much gold 
from you, towards the purchase of the things 
you need to go down into the temple. You, of 
course, try lo get the goods as cheaply as possi- 
ble. The computer argues and bargains with 
you like an Arab rug salesman! It is extremely 
amusing and realistic. 

Before you actually begin to play, ii is a good 
idea to sit down with the documention that is 
supplied with the program, a Coke and a big 
bag of chips. Much of what you need to know 
about Temple of Apshai is contained in the 
pages of a colorfully covered manual of 
history, geography and monster biology. 

If Temple of Apshai played as well as it is 
documented, it might be worth $24.95. The fact 
that you must constantly refer back to the 
manual for descriptions of where you are and 
what you face is a constant irritation, at least to 
a novice. The quasi-real-time mode of the game 
allows you to be ambushed and munched in the 
time ii takes to figure out what you're dealing 
with. 

While there is a lot for the hard core 
Dungeon player, and obviously, exhaustive 
work has made the package appealing, there 
just isn't $24,95 worth of computer program- 
ming here. 

Business Oriented 

1 have had a chance lo visit several software 
distributing houses in the past few months and 
talked to their head reviewers. They, like ISI, 
agree that to get a game published is going to 
take a special product. Programmers take note: 
All these publishers are becoming increasingly 
oriented toward business and educational pro- 
grams. 

Utilities still have a good market as would 
any good DOS that could be inexpensively add- 
ed to disk packages. 

Thai's it for this round. Keep those cards 
and letters coming in for the contest (outlined 
in last month's column), some of the ideas so 
far are terrific. ■ 
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by Ross Wirth 



**Maury is responsible 

for keeping up an old 

family history with the 

help of the TRS'SOr' 



Maury Dyer serves as coordinator for a 
genealogy special inieresi group (3110 
Tawny Oak Dr., San Antonio. TX 78230). 

Maury is responsible for keeping up an old 
family history. When first received il was many 
pages of tables with almost 1200 family names. 

With a "little bit of knowledge of what a 
computer can do, and a lot of enthusiasm" 
Maury has begun to rewrite his family history 
with the help of the TRS-80. In addition to pro- 
ducing a book of family tables and narratives, 
Maury is producing a "Data Book' of indices 
to the data base. This list of data indices will be 
used as a reference lo assist in research, par- 
ticularly on field trips. Maury says he has re- 
written his programs many times, but still does 
not have an "ideal" system. 

If you are interested in genealogy, pass along 
your ideas and programs to Maury. 

Attention Bostonians: Given sufficient in- 
terest a Boston-based genealogy group is being 
formed. For further information contact 
Dorcen Ushakof f (c/o Center for Communica- 
tions Inc., 1 10 Cabot St., Beverly, Mass. 
01915). 

High School Science Sig 

This is a group of high school teachers who 
use a TRS-80 in leaching science courses. The 
Sig facilitates the exchange of ideas and pro- 
grams for tutorials, practice problems, class 
demonstrations, laboratory simulations and 
laboratory data manipulation. Games that can 
be used to teach a particular topic arc also 
highly desired. 

If you leach high school science this Sig i.s for 
you. Temporary coordinator is Richard A, 
Marble (c/o Casady School, Box 20390. 
Oklahoma City. OK 73156). Please send copies 
of any programs you have developed to 
Richard. If you purchased the program or it is 
copyrighted just send the name of the program 
source. Given a sufficient number of entries a 
list of available programs will be published- 
Any profit from this Sig will be used to pur- 
chase additional software for the active 
members. 

Amat::ur Radio Nets 

If you are an amateur radio operator you 
may b-: interested to know about the scheduled 
nets for owners and users of the TRS-80. 1 am 
currently aware of seven regularly scheduled 
nets that hold roundtable discussions on topics 
of interest to TRS-80 owners. The only require- 
ment for any of the nets is an interest in the 
TRS-S&and, of course, a license to get on the 
air. 



2I..140MH/ iK'l owiliol NO.-XtJN 

2.1«) Hr^. tiM I 

14.3.12 MHZ ncl cunirol WA6YKH 

(Wcsl Lo:iM) 

IVOO Hrs. tiMT 
Anolhcr iicl normiilly follow>. iWw ntt lor \wapping 
program', and proyram inrormalion. 
SSB HHONh I4..142 MH7. ncl auurol WOBSAS 

(l:aM CciaMl 

2300 Hr^. CMT 

7, \Ai M HZ nci conirol WIJKSAS 

0000-OI(X) Mrs. GMT 

l-l.Of/) MH/ lid aiiiirol V(i,6AMW 



SSR PHONE; 
.M-W.F- 
SSB PHONI; 

Kundiiy 



Sunday 

cw conr 
SaL.-Siin. 
CW C OIJE 



llaily 0300-CMlXl Hrv. CIMT 

ft. RriY 1-1.(175 MMZncn.-»nirol WUfiVOG 

D;iil> 0300-a«(I) Hri. c;mT 

7. RTTY l'l.0H5 .V1I1/ nti i:urnrol WA4AJY 

•Sai.-Siin. 2200-0100 llrs. t;MT 

I am happy to hear from you to learn your 
ideas and thoughts on the content of this col- 
umn. Please send your comments to me at 
!5906E. 96 St. N.,Owasso, OK 74055. Please 
enclose a self-addressed stamped envelope for 
personal replies. ■ 



Anchorage TRS-80 Users Group 
PO Box 10 
385 South Station 
Anchorage, AK 995 11 

Arizona TRS-80 Users Group 
c/o R, Warren 
4322 East Fairmont 
Phoenix, AZ 85018 

Augusta TRS-80 Users Group 
PO Box 2143 
Augusta, ME 04330 

CSRA Computer Club 
PO Box 284 
Augusta, GA 30903 

Dayton Area TRS-80 Users Group 
231 Green St. 
Dayton, OH 45402 

Greater Kansas City TRS-80 Users Gp. 
8909 Wenonga 
Leawood, KS 62206 

Madison TRS-80 Users Group 
c/o P. Daly 
430 Jean St. 
Madison, Wl 53703 

Mid Peninsula TRS-80 Users Group 
c/o C. King 
925 Forrest Ave. 
Palo Alto, CA 94301 

San Jose TRS-80 Users Group 

C.S. Shanks 

3490 Bon Air Court 

San Jose, CA 95117 

Texas TRS-80 Users Group 
c/o G. Perkins 
5224 Winifred Dr. 
Ft. Worth, TX 76133 



Tandy Computer Users Group 
c/o Rod Wright 
8205 Chivalry Rd. 
Annandale, VA 22003 

TCUG 
c/o R. Daly 

2617 42nd St. NW #2 
Washington, DC 20007 

Tidewater TRS-80 Users Group 
POBox 10281 
Norfolk, VA 23513 

TRS-80 Club 
c/o J. Lindsly 
8106QuaiIwood CT 
West Chester, OH 45069 

TRS-80 Group of Southwest Indiana 
c/o M. Anderson 
PO Box 3284 
Evansville, IN 47732 

TRS-80 Nibblers 
2555 Hesperian Blvd. 
Hayward, CA 94545 

TRS-80 Users Group 
Radio Shack 
Park Row at Collins 
Arlington, TX 76010 

TRS-80 Users Group 
245 Mapleview Rd. 
Cheekiowaga, NY 14225 

Tulsa TRS-80 Users Group 
POBox 1133 
Tulsa, OK 74101 

TRS-80 Users Group 
712-C Country Wood 
Walnut Creek, C A 94598 

Continue to page IS 
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THERE IS A DIFFERENCE IN 



TRS-80 DISK DRIVES capacity 




LOBO DRIVES' newfamily of disk memory 
products provides you with a choice of memory 
capacities you need to effectively execute the 
complex business software you've developed 
for your TRS-80*. LOBO DRIVES' selection of 
readily available, software compatible drives 
permits you to expand your inventory, payroll, 
customer list, and accounts receivable files as 
your business grows. 

And LOBO DRIVES brings you more ... a new 
plug-in expansion interface that provides an 
easy way to add hardware enhancements, 
communications capability, and programmable 
features . . . and it comes with the LOBO 
DRIVES famous 1 year, 100% parts/labor 
warranty. 

Call or write for the complete LOBO DRIVES 
story. Find out just how competitively priced a 
family of high capacity drives can be . . . 



Quantity discounts available - 
Dealer inquiries invited 



l@6(i 

orii/es 






trjTERNATIOMAL 



935 Camino Del Sur Goleta, 
California 93017. 
(805) 685-4546 

"CAN YOU REALLY AFFORD 
TO PAY LESS?" 



Yes, I want to know more about LOBO Drives 
and what they can do formy TRS-80. Send me 
information on: 



a 5 1/4-in. Floppydrive 

D 8-in. Floppy drive 
Single sided 
Double sided 



D 8-in. Winchester hard 
disk, 10 Mbyte drive 

D Double density 
expansion interface 



Name. 



Company. 
Address _ 



City_ 



State'. 



._ Zip__ 



Phone No, 



If dealer, provide resale no. 



*TRS-80 is a registered lradematl< of Radio Shack, a Tandy Company. 



u' Reader Service — seepage 147 
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ASSCneiY IINE 



by William Barden, Jr. 



»«j»i 



*Jll provide tutorial 

material on the more difficult 

aspects of assembly language 

and some . , . useful routines . . . . " 



This is the first of what 1 hope will be many 
columns devoted to TRS-80 assembly 
language programming. Judging from articles 
I've read and comments I've heard ai users' 
groups, many of you are interested in assembly 
language. I'll provide tutorial material on the 
more difficult aspects of assembly language 
and some useful assembly-language routines 
that you can use with BASIC programs or other 
assembly-language code. 

Why Use Assembly Language? 

There are three reasons to use assembly 
language on the TRS-80: Speed; efficiency of 
storage and challenge. 

We can safely say that assembly language is 
anywhere from 100 to 300 times faster than 
BASIC This rale can turn a two hour sort into 
30 seconds, or a pathetic lunar lander creeping 



". . . assembly language is 

. . . from 100 to 300 times 

faster than BASIC. " 



downward into an impressive real-time simula- 
tion of a moon landing! 

Not only is assembly language fast, but it 
uses memory efficiently. It's relatively easy lo 
fit a turn key mail list program written in 
assembly language into about 2K bytes, where- 
as the corresponding BASIC version uses 16K 
bytes. 

Furthermore, assembly language is challeng- 
ing! Maybe you're the guy who took clocks 
apart when he was six years old and is now 
building an intricate scale model of the 
Nosiromo. Assembly language is perfect for 
you! It has tnore parts than any grandfather 
clock. 

In addition assembly language enables you to 
ferret out some of the deep, dark secrets of 
Radio Shack, Microsoft, Apparat and ACS. 
We've got to keep them honest, you know. 

The Other Side of the Cassette 

There are some drawbacks. One of the chief 
reasons for not using assembly language is that 
program development time is much greater 
than a high-level language such as BASIC. As a 
mailer of fact, developing assembly language 
programs may require ten or more times the ef- 
fort of the corresponding BASIC program. 

Another disadvantage to assembly language 
is that ii does take more time to learn. 

A third disadvantage is that it is not as "self- 



documenting" as BASIC — you can't look at an 
assembly language listing and see what is going 
on as easily as a BASIC listing. 

The advantages and disadvantages must be 
weighed. If you would like to increase your 
programming knowledge, speed up some of the 
slow parts in your BASIC programs, and if you 
like head cheese, garlic and old Pinky Lee 
reruns, then assembly language is for you. First 
of all, I recommend a good book on TRS-80 
assembly language. Since the TRS-80 uses the 
Z-80 microprocessor, a good text on assembly 
language for the Z-80 is fine. I'll be expanding 
on concepts from Z-80 programming texts. 
One book that I recommend is Radio Shack's 
TRS-80 Assembly-Language Programming by 
WilUam Barden, Jr. (no relation). A second 
necessary book is the manual that comes with 
the Radio Shack Editor/ Assembler package. 
This contains the operating instructions for the 
Editor/Assembler in a form reminiscent of 
IBM manuals. (You know the infortnation is in 
there somewhere, but you have to wade 
through 2(X) pages to find it.) 

A third book you should procure is the Z-80 
Assembly-Language Programming Manual 
from Zilog, the original manufacturer of the 
Z-80. This book is the definitive source book 
for how all Z-80 instructions operate, and the 
material in the back of the Editor/ Assembler is 
simply a rehash of the Zilog book. 

The fourth item that is a real help is some sort 
of Z-80 programming reference card. Zilog has 
a good one called the Zilog Z-80 CPU Pro- 
gramming Reference Card. Another reference 
guide, the TRS-80 Assembly-Language Refer- 
ence Book, written by myself, lists not only the 
material found in the Z-80 card, but all material 
for Z-80 programming on the TRS-80. It is 
available for $4.95 from Micro Applications 
Mission Viejo, CA. 

The reference cards above are more conve- 
nient to use than thumbing through hundreds 
of pages while looking for that elusive instruc- 
tion. 

Using the above references, familiarize your- 
self with the architecture of the Z-80 micropro- 
cessor, the instruction set and the addressing 
modes. Don't panic when faced with the 700 or 
so separate instructions of the Z-80! Would you 
believe that all 700 can be broken down into 
three instructions! I didn't think you would. 

Seriously, folks, the instructions can be 
grouped into only dozens of instructions. The 
secret in learning the Z-80 instructions is not to 
be intimidated by what are really very simple in- 
structions when treated individually. None of 
them are as complex as "PRINT USING" or 
some of the string functions in BASIC. Just 
take them one at a time and hack away at them. 



and before long you'll be using them automati- 
cally. 

Radio Shack, Apparat and Microsoft 

Of course, besides the reference texts, you'll 
need some utility software to edit and assemble 
Z-80 instructions. First is the Radio Shack 
Editor/Assembler, an excellent package. It 
allows you to store source (the unassembled 
text for the assembly language program) and 
object (the assembled machine language out- 
put) files on cassette. Editing is ea.sily and 
quickly done by a line-oriented editor, and the 
assembler portion has enough bells and whis- 
tles so that the AL programmer doesn't suffer. 

Cassettes arc a nuisance, but for those of us 
with disk systems, there is Apparat's version of 
EDTASM. They've added a few niceties such 
as alphabetized symbol table printout, but the 



''Don't panic when faced 

with the 700 separate 

instructions . . . *' 



basic Editor/Assembler is still the same. Which 
would I recommend? If you have a disk system, 
then the heartbreak of cassette tape is unnec- 
essary. 

Radio Shack does have a disk Assembler. 
This is the Microsoft Macro Assembler. The 
Macro Assembler generates macros, a type of 
"in-line subroutine." While the Macro is an ex- 
cellent assembler, its use is not as straightfor- 
ward as either the Radio Shack EDTASM or 
the Apparat disk assembler, and we won't be 
referencing it in this column, unless 1 receive an 
outpouring (inpouring?) of mail from irate 
Macro Assembler users. 

To pacify Microsoft, 1 will mention another 
Editor/Assembler package from Bellevue, 
EDTASM-PLUS. EDTASM-PLUS has the 
basic Radio Shack EDTASM plus embellish- 
ments on the editor (move a block, copy a 
block , others), macro and in-memory assembly 
capability (object code automatically placed in 
memory) and a completely redesigned DEBUG 
package called Z-BUG. (Where do they get 
those names!) 

The price? A phenomenal $29.95! Using this 
package, an AL programmer can edit, assem- 
ble and debug without ever touching a cassette 
or disk. 

Although EDTASM-PLUS is cassette- 
based, Microsoft does plan a disk version, for 
Continue to page 14 
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Ccxnplete financials 
frcxn the (xxiqilete 
OHnputer company. 



From the STRUCTURED SYSTEMS GROUP; the 
following programs from require CP/M™ and 
CBASIC. Select a specific area to computerize 
while building a totally interactive system written 
in compiled Basic. 

GENERAL LEDGER — Interactive and flexible sys- 
tem providing proof and report outputs. 

ACCOUNTS RECEIVABLE — Open item System 
with output for internal aged reports and cus- 
tomer-oriented statement and billing purposes. 

ACCOUNTS PAYABLE — This System provides 
complete information necessary for management 
information in the form of Aged Trial Balance, 
Cash Flow Analysis, Pre-check Reports and the 
Check Register. 

INVENTORY — The System provides businesses 
with up-to-date and accurate information on the 
quantity, value, and activity of their inventory 
items. 

CP/M VERSION 2.0— Complete with assembler, 
text editor, debugger and various utilities plus full 
documentation. 

CBASIC-2 — Disk Extended BASIC Non-Interactive 
BASIC with pseudo-code compiler and runtime 
interpreter. 



From DIMENSION DELTA — Fill your specific 
needs by selecting any combination of the five 
packages available or select a fully integrated sys- 
tem consisting of all five. Accounts Receivable, 
Accounts Payable and Payroll automatically pro- 
vide input to the General Ledger. In addition, each 
of the five packages is capable of operating inde- 
pendently. Flexible design accommodates most 
companies without expensive custom modifica- 
tions. 

GENERAL LEDGER —Timely accurate and well 
organized financial information keeps the user in 
full control of his business. 

ACCOUNTS RECEIVABLE — Converting excess 
receivables to cash while maintaining good cus- 
tomer relations is the goal of this system. 

ACCOUNTS PAYABLE — The System forecasts 
cash requirements based on discount dates or due 
dates and ages past due receivables. 

PAYROLL — Departmental totals each pay period 
and monthly summaries of earnings and deduc- 
tions help management control personnel costs. 

INVENTORY — The System maintains detailed 
information on each inventory item including the 
part number, description, unit of measure, vendor 
and reorder data, item activity, and complete 
information on current item costs, pricing, and 
sales. 



To order by phone or for local dealer information call: 713/661-2005 
Texas residents add 6% sales tax • MasterCharge • Visa 

HOUSTON MICRO-COMPUTER TECHNOLOGIES, INC, 

Home and Business Computer Specialists 
5313 BISSONNET • BELLAIRE • TEXAS • 77401 • 713/661-2005 
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which I (blush) wrote the reference manual. 
EDTASM-PLUS is by far ihe greaiesi ihing go- 
ing for AL programmers, and I don't feel at all 
guilty about recommending it. 

AL Project One: Musical Tones 

In the remainder of this column, I'll discuss 
one of the more interesting applications of 
TRS-80 assembly language, generating musical 
tones. The musical tones can be played when 
driven by a BASIC program, or used as a warn- 
ing enunciaior or siren. In the process of 
developing the lone AL code, we'll be touching 
on the important assembly-language concepts 
of output, timing and loops. A square-wave 
lone can be generated by turning the cassette 
output on and off. The frequency of the tone 
produced is inversely proportional to Ihe cycle 
time of the on and off periods, as shown in Fig. 
1. 

As some of you know, the cassette is con- 
trolled by a four-bit (four binary digit) latch in 
the CPU section. This latch has an address of 
255 decimal or OFFH hexadecimal. Try the fol- 
lowing BASIC code if you have Level II 
BASIC: 



100 OUT 255,1 
ZOO OUT 255,2 
300 GOTO 100 



In this horrendousty complicated program, 
the two lower bits of the cassette latch arc alter- 
nately turned on and off. They lead to some 
electronics which pulse the cassette output first 
one way and then the next. 

If you listen to the output by writing a tape, 
or by a small audio amplifier connected to the 
cassette output, you will hear a buzz-sawish 
tone. This tone is Ihe highest pitched tone we 
can achieve with BASIC because of the "over- 
head" of interpreting the BASIC sialemenis. 

In assembly language, we can use the same 
scheme to achieve much higher pitched tones. 
In fact, we can go from cycles per second, or 
hertz, to over 30,000 hertz. The basic scheme 
for doing this is lo emulate the BASIC OUT 
command by the equivalent AL command 
OUT. Here's the assembly language version: 

LOOP l.U A, I :l lo A 

OUT 10l'l-H),A ;miipui I lo porl 255 

LD A.2 :2loA 

OUT (0[-KMl,.A ;oiiipiil 3 10 pori 255 

JR [.OOP :hnik lo LOOP 

The two OUT instructions perform exactly 
as the BASIC OUT: They output the value in A 
to output port 255 (OFFH). The JR is a Jump 
Relative, which branches (he program back to 
Ihe instruction at LOOP. Here, then, we have a 
very "tight" loop. 

We can easily find out how long the LOOP 
takes by adding up the times of the instructions. 
The times of the instructions are provided in the 



L 



Fig. 1. 



previously mentioned Zilog manual, EDTASM 

manual or reference cards. 

Looking at the OUT instruction, for exam- 
ple, we find that it takes 1 1 T cycles (each cycle 
is Vi microsecond or ,25 millionths of a second) 
or a total time of 2.75 microseconds. The catch 
is that the limes listed in much of the documen- 
tation are for a Z-80 running at 4 megahertz, or 
4 million cycles per second. 

The TRS-80 runs at about 1.774 megahertz, 
so adjust each 4 MHz instruction time for the 
lower clock rate by multiplying by 4/1.774 or 
2.255. By doing this the LD instructions take 
3.95 microseconds, the OUT instructions lake 
6.2 microseconds and the JR takes 6.765 micro- 
seconds for a total loop time of 27.065 micro- 
seconds. This loop time corresponds to a fre- 
quency of 36,948 hertz. This is the maximum 
frequency that we can get out of this approach. 

Few tunes require this high a pitch unless 
there are some in the canine repertoire I'm 
forgetting. One objective, then, is to reduce the 
frequency we can obtain by adding padding 
between the OUTs. In fact, we must control the 
amount of padding or time delay in order to 
generate many different tones. We must 
ultimately end the loop above; a.s it stands, it is 
endless. 

Here's a version that has a variable amount 
of time delay: 



POl' 


HI. 


;TO HL 


LD 


A.I 


;"()N" VALUt 


OUT 


[OFPID.A 


;T l.RN ON CASSFTTF. OUT 


LOOP! ADD 


HL.BC 


:FRfcyCNl.| 


JP 


f.LOOPI 


;LOOP il- NO[ -1 


PUSH 


Dl: 


;TRANSi'fR rRF.0<:OUNT 


P01> 


HI. 


;TO HI, 


LD 


A, 2 


;-OFF"' VAI.l.'l- 


our 


(OriH).A 


;TURN Ol E- CASSLTTL OUT 


LO0P2 ADD 


HL,HC 


;KRhQCNr.| 


,IP 


C,i.00P2 


iLOOPIFNOT-l 


JU 


LOOP 


iCONTINUt 



TONli LD QC.-l 

LOOP PUSH Dti 



:DECREMl:NT VAl.UF 

; IRANSKbR i- KtO COUNT 



The time delay here is controlled by a count 
initially in the DE register pair. This count is 
transferred from register pair DE to register 
pair HL by the PUSH DE and POP HL. This 
PUSH, POP sequence is commonly used to 
load one register pair with the contents of 
another. 

The time delay is implemented by decrement- 
ing the count in HL by adding - 1 in the BC 
register. A DEC is not done to HL because per- 
forming an ADD HL, BC will reset the C(arry) 
flag when (he count is decremented from to 
- 1; a decrement of a register pair affects no 
flags! The carry flag is tested by Ihe JP 
C,LOOPx, which loops back if there /j a carry 
(HL register pair not - 1). A JP is used in place 
of a JR because it is somewhat faster. 

The timing loops for "on" and "off" take 
about 1 1 .83 microseconds for each loop. Since 
the count in HL may be 1 to 65536, this allows 
for frequencies of less than two hertz and 
greater than 20,000 hertz, ignoring the other 
overhead. The timing loop is also very light, 
making the resolution for individual frequen- 
cies fairly good. 

At this point, we are almost done. The pro- 
gram above, however, is still an endless loop. 
We need some control over the duration of the 
tone. 







00100 








•••■»»■••■»«•••»••• 






BBllB 




TONE 


SUBROUTINE 


*■ 






00120 


t (■'• •« 


K*i>a***(>i 
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Bfll3B 










VFHB 




00140 




ORG 


7F00H 


1 CHANGE ORG FOR YOUR SYSTEM 


7(^00 


0000 


B015B 


FREO 


aZ¥>A 


B 


:fheuuencv count 


7FB2 


0B0B 


BB1±.B 


DURA 


DEFW 


B 


!DURATION COUNT 


7FB'. 


dd2ab::7f 0h17b 


TONE 


LD 


I X . ( DURA 1 


!LOAD DURATION COUNT 


7FBB 


ED5B0B7F BBISB 




LD 


DE. (FREO) 


tLOAD frequency COUNT 


'F0C 


0IFFFF 


00190 




LD 


BC.-l 


;decrement value 


7F0F 


D5 


BB2B0 


LOOP 


PUSH 


DE 


ITRANSFER FREO COUNT 


7Fia 


El 


Ba2ie 




POP 


HL 


;T0 HL 


TFll 


3E01 


00220 




LD 


A, 1 


:-0N" VALUE 


rF13 


D3FF 


B023B 




OUT 


C0FFH!,A 


iTURN ON CASSETTF OUT 


7F15 


0T 


00240 


LOOPl 


AD[} 


HLiBC 


iFREQ CNT-l 


IF lb 


DA137F 


B025B 




JP 


C . LOOP 1 


iLOOP !F NOT -1 


7F19 


D5 


BB26B 




PUSH 


DE 


; TRANSFER FRES COUNT 


7F1A 


f;i 


aH27B 




POP 


HL 


;T0 HL 


7Fie 


3Eai 


BB2BB 




LD 


A, 2 


; "(IFF VALUE" 


7P1D 


D3FF 


Ba29B 




OUT 


(OFFH), A 


ITUfiN OFF CASSETTE OUT 


7F1F 


09 


B030O 


L00P2 


ADD 


HL.BC 


IFREO CNT-1 


7F,;0 


DfllF7F 


00310 




JP 


C.L00P2 


ILOOP IF NOT -I 


7F23 


DD09 


BB32B 




ADD 


ix>ec 


-.DURATION COUNT-) 


7F25 


DA0F7F 


00330 




JP 


C.LOOP 


i CONTINUE IF NOT DONE 


7Fia 


C9 


00 340 




RET 




IRETURN TO CALLINS PROG 


C1B0B 




00350 




END 






00000 TOTAL 


ERRORS 










DURA 


7Fa2 


B016B 


B0170 








F REGl 


7F0B 


00150 


00180 








LOOP 


7F0F 


B020B 


B0330 








1 OOP 


7r 15 


00240 


0B250 








UOOPi 7F1F 


00300 


00310 








TONE 


7FBi| 


00170 






Tabie 1. 
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Fig. 2. 

Because we have used most of ihe general 
purpose registers we will have to use one of ihe 
index registers, IX, to hold a duration count. 
This works out very nicely, since we can decre- 
meni the count in IX by performing an ADD 
IX, BC and testing the C(arry) flag directly 
after. The final version of TONE is shown in 
Table 1, assembled at RAM memory location 
7F0OH. Reassemble TONE based upon the size 
of your memory. 

To use TONE with a BASIC program, first 
load the AL tone program as a SYSTEM tape 
or disk file. Then load BASIC and proiect 
RAM by entering the appropriate MEMORY 

SIZE response. 

In the BASIC program, first POKE loca- 
tions 7F00H/7F01H with a frequency count of 
1 through 65535. If FC is the frequency count, 
(hen perform POKE 32513,lNT(FC/256), fol- 
lowed by POKE 32512,FC-lNT(FC/256)-256. 
POKE locations 7F02H/7F03H(325i4, 32515) 
with a duration count in the same fashion 

Nexl, set up a USR call for Level II or Disk 
BASIC as outlined in the BASIC manual. The 
starling address is at 7F04H(325 1 6). Set up the 
address alone, as no other arguments need to be 
passed except by the POKEs previously done. 
Then, execute a USR call to output the tone. 

To use TONE with other assembly language 
code, simply LD locations FREQ and DURA 
with the frequency and duration counts and 
CALL and TONE subroutine. 

The formulas for finding the actual frequen- 
cy of Ihe tone are shown in Fig. 2. A table of 
frequencies can be compiled by using this for- 
mula in a short BASIC program. The duration 
count for TONE must be adjusted for frequen- 
cy to output notes of the same duration. DURA 
is 500 for a one second tone of 500 hertz and 
1000 for a one second tone of 1000 hertz, for 
example. 

"Best match" to standard musical note 
values can be chosen by reference to a table of 
note frequencies and the tone formula. Sirens 
and other sound effects can be generated by 
combining short duration tones of varying fre- 
quency, 

Nexi month, we'll be discussing the in- 
famous TRS-80 keyboard and ways to read all 
the keys and a few more. We'll also cover 
relocatability, not to be confused with changes 
of address. 

In the meantime, I'd be interested in hearing 
from you aboul your solutions to the following 
problem: Give a number, find the integer por- 
tion of its square root in a short assembly- 
language routine. For example, given 137, find 
the 11 portion of 11.7047 in a short piece of 
code. The reader with the shortest program will 
be mentioned in dispatches in a later column. 
Write: 28182 Palmada, Mission Viejo, CA 
92692. ■ 
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by Sherry Smythe 



New Hampshire, now one of the top 
growth Slates in the country has become 
particularly proliferated with new mail order 
businesses. This is ideal for an essentially rural 
state and particularly good for persons want- 
ing lo move out of the cities and start their 
own businesses. 

In the southwestern pan of the state a new 
microcomputer mail order firm recently goi 
started, MOM's of Marlborough, some iwen- 
ty miles west of Peterborough. You'll be see- 
ing more and more mail order ads from 
MOM'S. 

Not being exactly new to microcomputers, 
the people at MOM's wanted to start with a 
computerized system of handling orders and 
inventory. They contacted Instant Software 
for advice about support and decided to go 
with a TRS-80 Level II system with 32K of 
memory and three disks. ISI was well along 
with tests on a disk-oriented accounts 
receivable and payable program which 
seemed ideal for the MOM's application. 
Thus, the new firm was helped and ISI had a 
suitable test for its new program package. 



Several software packages were looked over 
before the decision was tnade, including sofi- 
ware packages from a half dozen different 
publishers. 

MOM's needed a program which would 
handle the daily orders, keep a mailing list for 
sending out catalogs, prim orders for pack- 
ing, labels for mailing, and be expandable to 
handle the inventory when that grows beyond 
a small card file. 

The ISI program can handle 1500 transac- 
tions with up to 760 accounts per disk and 
even prim monthly reports. One other major 
benefit was the on screen prompts, adequate 
for even an inexperienced operator. 

Since a good deal of the time is spent on 
looking for job lots of computer equipment lo 
sell, it was imporiani that as much of the 
MOM's operation be automated and comput- 
erized as possible. I'he TRS-80 systeni lias 
worked out well in this respect and an 
automatic phone answering system has freed 
the MOM'.s people to search lor more 
goodies. They are concentrating on micro- 
computer and car gadgets for ihc prcseiiLH 



From page 10 



TRS-80 Users Group of Arizona 
Rod Purcell, President 
6218 W. Marlette 
Glendale, AZ 85301 

TRS-80 Users Group 
7465 Holliston Ave. 
Suite 232 
Goleta,CA 93017 

TRS-80 Users Group of SW Houston 

c/o B. Taylor 
3723 Purdue 
Houston, TX 77005 

TRS-80 Users Group 
c/o J. Hill 

2203 Cord St. 
Indianapolis, IN 46224 

Phoenix TRS-80 Users Group 
1850 East Maryland #27 
Phoenix, AZ 85016 

Portland TRS-80 Users Group 
c/o J. Warner 
13485 SW Driftwood 
Beaverion, OR 97005 

Redwood Empire TRS-80 Users Group 
c/o John Revelle 
7136 Beliia Ave. 
Rohnert Park, CA 94928 



Pacifica TRS-80 Users Group 

c/o J. Strazzarino 

338 Alida Way #306 

South San Francisco, CA 94080 

TRS-80 Users Group 
c/o C. Manis 
1516 Dallas St. 
Killeen, TX 76541 

TRS-80 Users Group 
Klaus Ritienback 
Rt. #l,Box8 
Milton, NY 12547 

TRS-80 Users Group 
621 — 13th Ave. South 
Onalaska, Wl 54650 

Wichita Valley TRS-80 Users Group 

PO Box 4391 

Wichita Falls, TX 76308 

TRS-80 Users of Houston 
6900 S. Rice 
Bellaire, TX 

TRS-80 Users Group Ottawa 

2 Larsen Ct. 

Kanato, ONT, Canada K2L 1Y8 

TRS-80 Users Group 
3825 North 26ih St. 
Tacoma, WA 98400 
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by Michael lannenbaum C.P.A. 



*'When you are satisfied 

that aii the data is entered 

just select ^calculate* 

and sit back, " 



An unexpccied result of our high raie of 
inllaiion has been ihe large increase in the 
number of taxpayers who are now required to 
file long form tax returns. Although the Inter- 
nal Revenue Service has made a valiant attempt 
10 make ihc forms more readable, lax prepara- 
tion lime is siill a headache for most 
Americans. One possible cure for "tax reiurn 
blues" is Ihe neighborhood lax preparation 
center. There, for a moderate fee, you can gel 
your return prepared by an "expert." 

Aurdvark 

However, as an 80 owner you can save the 
carfare to the tax center. You can spend the 
small fee to purchase software which will turn 
your trusty microcomputer into an instant tax 
expert . As with all purchases of 80 software the 
problem in making a selection is that there are 
too many choices. Therefore, since the price 
.seemed reasonable in relation lo the features 
offered, I ordered the Aardvark software Mi- 
cro Tax 111 package. 

In a shori time 1 received a book and two 
cassettes containing the Micro Tax programs. 
Although I have a disk system, I ordered the 
tape version and, when I attempted lo place the 
programs on disk. 1 ran into immediate prob- 
lems. In lime 1 found a solution, but the time 
lost wasn't worih the ten dollars I had saved. 

There are two sets of user instructions, one 
for Micro Tax II and one for Micro Tax III. 
Micro Tax II, which is packaged separately, 
handles the actual preparation of the reiurn. 
Micro Tax III is used only to prepare Schedules 
C. D, E, SEand form 21 19. 

To assist you in preparing your return, Aard- 
vark provides a "Tax Organizer" question- 
naire. Using ihe questionnaire is a requirement 
because the screen display provides almost no 
prompting during the data entry phase. All that 
is printed is a curt heading — Line H and Data. 
The package also includes an abbreviated ver- 
sion of the questionnaire. This form should be 
used as a worksheet when assembling data for 
lax reiurn preparation. I recommend that you 
make several copies. In this way the abbreviat- 
ed questionnaire can be used over and over 
again . 

Data is entered through an INPUT state- 
ment. Since two quantities must be entered, line 
number and data, premature hitting of the 
enter key causes a double question mark to ap- 
pear and data has to be reentered. 

Oinsiderable Code 

The lack of screen prompts is quickly ex- 
plained by listing the program. Almost 16K of 
code is required for the data entry program. 
Any bright ideas that 1 might have had re- 



garding modifications quickly evaporated. If 
there are any bugs, I am glad that I didn't find 
them during the program execution. 

Once all tax data has been typed, entering 
999,0 puts ihe program automatically in the 
edit mode. There appears to be a rather sub- 
stantial diagnostic edit. It's not fancy, but it 
works quite well. 

Now comes the best pari. When you are 
saiislled that all data is entered just select 
"calculate" and sit back. The computer does 
all the work. It even selects liie best tax table or 
ineihod of calculation to use. If. at the end of 
the calculation phase you find that you have 
left something out or made an erroneous entry. 



*'The computer does 

all the work. It even 

selects the best 

tax table ....'' 



you can make a correction anywhere. 

Selecting the calculation mode displays the 
new tax almost instantly. What a pleasure. 
Now, after a hard day assembling tax data and 
calculating the tax due, you don't have to start 
screaming, when you locate the one small detail 
that you have left out. Jusi make the change 
and presto, a new return. 

After the calculations are completed, the 
data accumulated must be saved on tape. This 
is for the facsiinile schedule program that for- 
mats the data on the CRT for manual entry on 
the tax return. This method of presentation is a 
real time saver in getting ihe numbers on ihc 
right lines of the return. The program thought- 
fully repeats numbers where they should be 
repeated and offsets numbers where they 
should be offset. A more advanced version of 
the same program is available that prims the 
data on actual tax forms. 



Software Check 

At the conclusion of Ihe tax return prepara- 
tion process, I carefully rcchccked all figures. 
New software should always be double- 
checked. If a mistake is made, you won't be 
able to blame the machine. It is also doubly im- 
poriani where tax liability is defined by the 
machine. Fortunately I found no errors. 

As indicated earlier, the Micro Tax HI pro- 
gram is noi required in all instances, however I 
did have an opportunity to use it for one return. 
Data is entered, checked for errors or incon- 
sistencies and calculations performed. A fac- 
simile schedule is displayed on the CRT, while 
you copy it onto your return. 

Unlike Micro Tax II, there are some minor 
bugs which have to be corrected, but these 
didn't affect the schedule calculations. 

All Micro Tax programs are extremely long. 
If your tape recorder is not in good condition 
you may have tape loading problems. It pays to 
persevere, however. 

Once loaded the results are w^orih the effort. 
I consider the Micro Tax programs a wor- 
thwhile addition to any program library. 



In the first issue of 80 Microcomputing i 
discussed some of the limitations of the Model 
One for accounting record-keeping. High on 
the list of operating problems is limited disk 
storage. Several readers have called me to task 
for this opinion. They indicated that there are 
many alternatives to the Radio Shack drives for 
the Model One system. They are right, of 
course, there are alternatives to the 35 track 
standard drives. 

All of these alternatives involve the use of 
plug compatible substitutes. Personally, I 
hesitate to endorse non Radio Shack Products 
on the Model One. Ifa problem develops, find- 
ing it and then repairing i( under warranty can 
be difficult. However, if you are technically in- 
clined and have the equipment to diagnose 
computer problems you are probably safe in 
getting any one of the larger and faster 
drives.! 



DELAY 

About 1 2,51X1 of you are proliably wondering where your copy of SO Programs has gol ro. So many 
readers signed up as Charier Subscritier^, Ihal we have had to reprint Ihe book. The original 20,000 
were snapped up at an incredible taie. 

The correct ioni on page 21 are included in [he second ediiion, and yon can expect lo receive a copy in 
April. Thaiik you for yoiirpeiiaicc and mKiersumd!ng.Plea,«n(W that the prenmm offer expired l-cbniary' 29^ 19K0. 



Due 10 circum.'iLanccs beyond our control, we have been forced to delay publication ot the Pencil v 
Scripsil arljcle menlioncd in Ihc March Preview. It is now scheduled for the May issue. 
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Instant Software: 
BASIC Sophistication 



Every once in a while you come 
across a piece of software that 
mal<es you stop and say to your- 
self, "That's the way it's supposed 
to be done." This quintet of pack- 
ages is just that kind of elegant 
and efficient software. 

On this page, we feature: an En- 
ergy Audit package for homeown- 
ers and the Accounts Receiv- 
able/Accounts Payable system. 
Both of these TRS-80 programs 
feature the speed and conve- 
nience of floppy disks. 

On the next page, three cas- 
sette-based packages: our Music 
IVlaster— for those interested in 
computer music and our two Utili- 
ty packages. Whichever you may 
choose, our attention to detail and 
dedication to producing user-ori- 
ented programs means you'ii al- 
ways be satisfied with ISI. 



Z 



ENERGY AUDIT 




When it comes to spending money lor energy to heat a home, everybody's 
a "skinflint." \N\ih today's rising fuel prices and staggering inflation, you 
need ways not only to cut down on your home heating bills but also to con- 
serve our diminishing energy supplies. 

One of the best ways to invest your money is to insulateyour home. You'll 
save money, and your home will appreciate in value. But, you're asking your- 
self, "How do I start, where should I insulate, and what will it cost me?" The 
Energy Audit package can answer alt these questions and more. 

Theprogramsin this package will give you detailed instructions on how to 
examine your home, collect information on its structural components and 
layout, and create a data file. The program will then analyze this data, show 
where you're losing money because of excessive heat loss, and describe the 
most cost-effective methods for saving energy and money. 

You may select any area of your home for detailed scrutiny, input your 
own cost figures, calculate savings potentials for different options, and 
incorporate whichever you want into your own home-investment budget. In 
effect, you can create a computerized "model" of your home. You'll be able 
to see the changes that will be made in your energy budget as a result of ad- 
ding a wood stove or refinishing an attic. 

When your friends and neighbors see how much money you're saving, 
they will want their homes analyzed too. You could even start your own busi- 
ness, showing your customers exactly where and how to insulate their 
homes for maximum savings. The Energy Audit package is the perfect sell- 
ing tool for any contractor or building supplies dealer. 

With the Energy Audit package you'll know what your home needs, where 
it needs it, and how much it will cost you. 

Or maybe you enjoy paying utility bills? 
Pkg. 0089R (cASsette version) $49.95. 
Fkg. 0052RD (disk-based version) $75.00. 



CCOUNTS RECEIVABLE/ 
ACCOUNTS PAYABLE 



\ 




Now, in one package, you can have a complete Accounts 
Receivable/Accounts Payable (AR/AP) system! These pro- 
grams will handle all the drudgery involved in processing 
AR/AP entries. 

Each program is capable of handling up to 760 accounts and 
as many as 1500 entries per month. Should you need to handle 
more accounts, you can divide them into as many sub-groups 
as necessary and keep a set of data disks for each sub-group. 

The Accounts Receivable program can print invoices, state- 
ments, and address labels for each customer. II will also 
generate a Month End report, a Customer Activity report, and a 
Daily Sales report. 

The Accounts Payable program will generate a fwlonth End 
report, an Account report, a Daily Activity report and a Check 
Payment report. 

The AR/AP package is ideal for any small business. The pro- 
grams are self-prompting and are easily used by anyone famil- 



iar with AR/AP operations. 

These programs can save you money, because they can print 
your company's letterhead at the top of each invoice and state- 
ment, using plain, fan-folded paper. 

Accounts Receivable/Accounts Payable: Software for the 
Professional. 

THIS PACKAGE REQUIRES THE FOLLOWING MINIMUM 
SYSTEM 

1. A TRS-80 Level II microcomputer, 16K of memory. 

2. An Expansion Interface with at least 16K of additional 
memory. 

3. Three mini-disk drives. 

4. A pin-feed line printer. 

5. Any TRS-80 Disk Operating System. 



Ask lor Package 0075RD 



$199.95. 



Instant Software Inc 



Peterborough, New Hampshire 03458 603-924-7296 



MUSIC 
MASTER 




Breathes there a programmer with soul so dead 

who never to himself has said. 

"I wish I could get music out of a TRS-80!" 

Now you can. Music Master lets you compose music, play your keyboard as if it 
were a piano, and experiment with programming to produce music suited to your 
taste. This package includes: 

•MICRO ORGAN-Change your computer into a musical instrument. You'll have a 
range of four octaves with three voices. The program will let you play flats and sharps 
to imitate the sounds of an organ, a harpsichord, or a piano. 

• KALEIDOPY — Now you can have a computerized "player piano." Generate a sym- 
metrical graphics pattern and then see it transformed into music. 

• COMPOSER — Experiment with computer-generated music. This program allows 
you to select the length of the piece, the scale it will be played in, and the tempo. The 
instructions even include a "messing-around" section that tells you how to create 
your own special effects. 

• KEYMANIA-This game will test not only your memory, but your musical ear. From 
one lo four players can try to remember and repeat the melody the computer creates. 
You can select the number and range of notes in the tune, the duration ol each note, 
and the intervals between notes. 

They may laugh when you sit down at the keyboard of your computer, but not after 
they hear what the Music Master package can do. 

(This package uses an optional audio amplifier, e.g. Radio Shack # 277-1008). 
For the TRS-80 Level II 16K. Order No. 0084R. $7.95. 



For a free catalog listing over 200 programs write: 
Instant Software Catalog Dept., Peterborough, N.H. 03458. 



UTILITIES 



TRS-80 UTILITY I Ever wonder how some 
programmers give their programs that 
professional look? Instant Software has 
the answer with the TRS-80 Utility I 
package. Included are: 
•RENUM-Nowyoucan easily renumber 
any Level II program to make room for 
modification or to clean up the listing. 
(Only for use with 16K of memory.) 
•DUPLIK-This program will let you 
duplicate any BASIC, assembler, or ma- 
chine-language program, verify the data, 
and even copy Level I programs on a 
Level II machine. 

For the TRS-80 Level II 16K. Order No. 
0081 R $7.95. 



TRS-80 UTILITY II Let Instant Software 
change the drudgery of editing your pro- 
grams into a quick, easy job. Included in 
this package are: 

•CFETCH-You'll be able to merge 
BASIC programs, with consecutive line 
numbers, into one program. CFETCH can 
also search through any Level II program 
tape and display the file names for ail the 
programs. 

•CWRITE-Combine subroutines that 
work in different memory locations into 
one program. CWRITE works with BASIC 
and/or one or more machine-language 
programs. It will even give you a general 
checksum to verify that your program 
hasn't dropped any bits. 




Another fine tool for your TRS-80 Level II 16K. Order No. 0076R $7.95. 



r 
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SEE INSIDE BACK COVER FOR LIST OF DEALERS NEAR YOU. 

If the store nearest you does not stock Instant Software, use this order blank to purchase your software 

directly, or call Toll-Free 1 •800-258-5473. 



Order Your 
Instant Software today! 



Name 



Address 
City 



!.; Check CI Money Order O VISA D 



Zip 



D 

£xp. dace 



Quinllty 


Old or No. 


Program name 


Unit Cost 


Toial COS1 


































































Shipping 




SI 00 


Mail t< 


>: 




Tolal Older 





Signature 



date 



Peterborough NH 03458 USA Depl. 70D0 



Instant Softwareinc 



"A irademark ol Tandy Corporation 

Peterborough, New Hampshire 03458 603-924-7296 



nK agair'^ "'comMt?' '"^"Jale ^^^^ lows you 



pr( 



:=^ift 



Rackgrounf) P 'J^p same ti^ie^tR will accept t^o^Jg 50, 


















BOlTtfiff'-- 



1404)939-6031 



1^ Reader Service— see page 147 



80 Microcomputing, April 1980 • 19 



so REVIEWS 



''They usually decide to call 

Perry or Brown three hours and 

500 lines into a program 

listings wondering where 

the rest of line 7000 is. " 



80 Programs for the TRS-80 

Kdiled by Jim Perry and Chris Brown 

1001001 Piiblisliing 

Pt'terborough, NH 03458 

paperback 

The phone rings once, twice, insistently, still 
audible, though buried, under a pile of old 
press releases and author queries. Editor peers 
at editor over strewn piles of empty envelopes 
and styrofoam coffee cups littering their office 
floor. 

"You take this one." 

"No way, .lose." 

A brief moment, and both bolt for the door. 
Perry is quicker this lime; Brown takes ihe eall. 
Yet another problem is recorded with a listing 
in 80 Programs for the TRS-80. 

Since Ihe mailing of 20,000 editions of the 
free book in late December, co-editors Perry 
and Brown have been racing for their office 
door with increasing speed and dexterity. You 



see, 80 Programs for the TRS-80 has a few 
problems. 

Nothing really serious, mind you, just some 
programs that don't work very well. Jim Perry 
light-heartedly says, "Geez, out of 80 programs 
you're bound to have a few turkeys, aren't 
you? After all, Ihe price was right." 

The readers have had more trouble maintain- 
ing a sense of humor about the situation. They 
usually decide to call Perry or Brown three 
hours and 500 lines into a program listing, 
wondering where the rest of line 7000 is. 

The book's first printing of twenty thousand 
copies was given away as a subscription incen- 
tive by 80 Microcomputing magazine. The 
book contains 80, Level il, BASIC programs 
of varying complexity in eight broad subject 
categories. Programming techniques range 
from crude to sophisticated depending on the 
author's acumen in BASIC. Program lengths 
run from the reasonable to the outrageous (the 
longest being seven pages of microscopic type 
in length). Blurbs at the beginning of each pro- 



The Individual Study Center 

TYC Software 

Ceneseo, NY 

$39.95 

Subject Tapes: $4.95 

by Emily A. Cibbs 

If you're a fan of famihal carnage with a side 
order of cooked dog, don't miss "House on 
Fire," one of the activities in TYC's (Teach 
Yourself by Computer) Individual Study 
Center. 

"House on Fire" is a graphic quiz designed 
to reinforce each correct answer with a ladder 
rung. This ladder saves three graphic lovables 
— Tim, Sue and Pup— from some elementary 
graphic tlamcs, but, because of a bug in the 
demonstration "sampler" that 80 Microcom- 
puting looked at, Tim, Sue and Pup are des- 
tined to burn every time. 

Faulty German 

Faulty German translations for "The glass is 
full" and "He is learning German" seal the 
fate of the duo and their pet. 

Designed for children and adults, the In- 
dividual Study Center requires a TRS-80 Level 
II with I6K. 

TYC stales that the course encourages "users 
to teach themselves using the computer and to 
improve their skills in the subject areas of their 



choice." Subject tapes include American His- 
tory (four different time periods). Geography, 
Mathematics, Arithmetic (with an emphasis on 
addition, subtraction, multiplication and divi- 
sion). World History, Languages and Spelling. 
The fields of study arc broken down into dif- 
ferent levels of aptitude. 

The Individual Study Center includes four 
cassette tapes, two of which contain six graphic 
activity programs, the demonstration tape, a 
blank cassette with a maintenance program for 
making your own subject tapes and a user's 
manual. The vinyl binder for storing the cas- 
settes costs an extra $6.00. Each additional sub- 
ject data tape costs $4.95. 

The demonstration tape in the package is a 
"random sampling" of questions included on 
other subject data tapes produced by TYC 
Software and the questions are also aimed at 
different skill levels. 

TYC says that each of its subject tapes "con- 
tains at least 80 questions and answers," and 
that may be true, but on the demonstration 
tape there are only 40 questions and 40 answers. 
If you're in TYC's documentation department, 
maybe that does add up to 80, but it computes 
with us about as well as TYC's German for 
"The glass is full." 

X-Ra(ed 

The six activities in TYC's package are 

"House on Fire," "Around the Ball Park," 

Continue to page 23 



gram reveal what the program purportedly 
does and, in some cases, give instructions for 
use (noteable exceptions arc Ohare and Invisi- 
ble Maze). 

Most of the programs were pilfered from the 
files of Instant Software (a sister company of 
1001(K)I Publishing, owners oi 80 Microcom- 
puting). Eventually, most will be available on 
cassette from ISI in updated versions. 

Perry, a former projects editor with Hobby 
Electronics and Electronics Today Interna- 
tional, is a British transplant living and working 
in the U.S. in an attempt to beat the Queen out 
of her percentage of his gross. Brown is a self- 
described Luddite, who found his way into the 
publishing business by way of technical writing 
and an affection for high visibility posiliuiis — 
he's an avid mountain climber. 

Prepared through the latter part of 1979 by 
one cockney and one cliff-dweller, the book 
reflects the seasonal cheer that impairs an 
editor's ability to detect syntax errors and 
CMD E messages that appear with regularity 
when certain programs are run. 

These problems are dismissed as trivial by 
Brown who claims that any 80 subscriber worth 
his RAM should be able to dig in and correct 
them "while half in the bag." 

He hedges however, trying to explain why 
the program titled Music Interval Test is,- in ac- 
tuality, the second appearance of Ihe PRINT 
program authored by co-editor Perry. "Ah, I 
think we laid out that page the day of our 
Christmas party." 

In fairness to the editors, and their edition, 
80 Programs is generally successful. Many of 
the programs are quite good and the majority 
run smoothly. The attitude of one irate sub- 
scriber who phoned Perry to inform him that 
80 Programs was worth every penny he paid for 
it, is somewhat unfair. 

Revisions w ill be made before the next print- 
ing. However, what about the twenty thousand 
copies currently in use? 

In an effort lo appease subscribers (and stem 
the flow of phone calls) the editors have agreed 
to make available all the program corrections 
they have to date. Listed opposite are the cor- 
rected lines and instruction sets for some of the 
more notorious bombers included in the 80 col- 
lection. 

The editors suggest that you cut them out 
and stick them in your book. Future correc- 
tions will be printed in this section. Corrections 
are also available from the editors, c/o 80 
Microcomputing, Peterborough, NH 03458. 
Please enclose an SASE. They ask that readers 
not call, however. Those dashes through the 
styrofoam cups are getting increasingly 
perilous with each ring. ■ 
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MUSIC INTERVALS TEST P. 31 

30 RANDOHjCLEAR 450 

35 DIM N0(2} ,RR(20) ,SS(201 ,ZS(20> ,HSI30] 

iQ DATA C,:,D,l,e,F,I,G,l,A,l,E,PP,-2,n2,-3,M3,P4,TT,P5,-6 

50 DATA M6,-7,M7 

6 REM MENU 

65 K=0:CLS 

70 PRIHT"HIi I'M TRS-80.":K-K+1:PEIKT:PR1NT 

80 INPUT"WilAT'S YOUR FIRST tJAME";FS:TF FS^"LIST" THEN 600 

90 INP[JT"WHAT'S YOUR LAST NAME";LS:CLS 

100 £'RIWT"THIS PROGRAM WILL GENERATE TWO NOTES BETWEEN A PRIME AND A 

lie PRINT"HAJOR 7. ONLY THE FOLLOWING COMMANDS TO THE QUESTION: 'ARE" 

120 PRINT"YOU READY FOR AN INTERVAL?' ARE VALID." 

130 PRINT"ENTER KEY", "GENERATES IN INTERVAL" 

140 PRINT"SCORE", "GIVES YOUR CURRENT SCORE" 

150 PRINT"STOP","TYPE STOP TO END THE QUIZ" 

160 PRINT"THE FOLLOWING INTERVALS ARE ALLOWED. PP, -2, M2, ETC.;" 



17t 
IE 
185 
19t 

20t 



PRINT"P4, P^, TT, YOU MAY NOT ANSWER AUGMENTED OR DIMINISHED." 

PRINT"HAVE AT IT, "FS"." 

REM MAIN PROGRAM 

R=0:S-0:PRINT 

A5="";PRINT:INPUT"AKE YOU READY FOR AN INTERVAL? 
(ENTER KEY, SCORE, ST0P)"jA5 
210 IF AS="" THEN 250 
220 IF AS="SC0RE" then 470 
230 IF fl$="STOP" THEN 550 

240 PH1NT"PLEASE HIT ENTER OR ANSWER SCORE OR STOP.":GOTO 200 
250 FOR 1=1 TO 2 

260 LET X=RND(12) :IF (X=2 | OR IX=4 ) THEN 260 
270 IF (X=7)OR(X=9) THEN 260 
2B0 IF X=ll THEN 260 
290 NO(I)=X:NEXT I 

300 FOR 1=1 TO 12: READ NSII):NEXT I 
310 RESTORE 
320 R=R+1:CLS 

330 PRINT @ 384, NSlNOdl)" TO "NS(N0(2)1" IS A:"; 
340 IF N0(11<=N0(2) THEN 360 
350 N0{2)=:N0(2)+12 
360 D=N0(2)-N0(1) 

370 FOB 1=1 TO 24!READ NS(I):NEXT 1:REST0RE 
380 T-0 
390 INPUT AS 
400 T-T+1 

410 IF AS=NS(D-H3) then 450 
415 IF T=2 THEN 440 

420 PRINT@44e,"NO, TRY AGAIN":GOTO 390 
440 FRINTP 640, "WRONG, IT'S A " ;KS (D+13 ) :G0TO 200 
450 PRINTS 640, "RICHT'';S=S+1;G0T0 200 
460 END 

465 REM FOR SCORE 

470 CLS ^ 

4G0 P=S/P*100 

490 PRINT"YOUR SCORE IS: "S "OUT OF"R "FOR "INT(P) "%" 
500 IF INT{P)>90 THEN 530 
510 IF INT(P)>30 THEN 540 
520 PRINT"NOT TOO GOOD "FS" "LS", YOU NEED MORE PRACTICE.": 

GOTO 200 
530 PRINT"VERY GOOD "FS". MAYBE YOU'RE READY FOR INTERVAL II.": 

GOTO 200 
540 PRINT"JUST FAIR "FS", YOU COULD DO BETTER. " :G0TO 200 
545 REM STOP AND LOAD LISTS 
550 LET ZS(K)=LS+", "+FS 
560 LET RR(K)=R:LET SS(K)=S 

570 CLS:PRINT"SEE YOU LATER, "FS". DON'T WRITE TOO MANY NOTES." 
580 FOR 1=1 TO 2500:NEXT I 
590 CLS:GOTO 70 

595 REM PRINT TEACHER'S LIST 

600 PRIWT"NAME";TAB(30) "t RUN" ; TAB (33) " * RIGHT" ; TAB { 49 )"%": PRINT 
605 K=K-1:J^0 
610 FOR I- 1 TO K 
620 LET P=SS(I)/RR[I)*10 
630 PRINTKS(I) ;TAB(31)RR(I 
640 IF J<10 THEN 670 
650 FOR H = l TO 5000:NEXT LI 
660 J=0 
670 NEXT I 

5 80 GOTO 7 

6 90 END 



:J=J+1 

I) ;TAB(39)SS|I) ;TAB ( 48 I INT ( P) 



BATTLESHIP P . 97 

595 PRINTTAB(30)CHRS 1 IL+64) TAB (34 ) ; : t'ORIC = lTO10 : PRINTCS ( IL, IC > ; : 
PRINT" "; :NEXTIC:PRINTCHRS(261CHRS(29) ; : NEXTIL : PRINTCHRS (31) :RET 
URN 



POWER SUPPLY DESIGN P. 139 

4 500 IFC1<=6THENC1=6ELSEIFC1<=10ANDC1>6THENC1=10ELSEIFC1<=12ANDC1>10TH 

ENC1=12ELSEIFC1<=15ANDC1>12THENC1=15ELSEIFC1<=20ANDC1>15THENC1=20 
ELSEIPC1<=25ANDC1>15THENC1=25ELSEIFC1<=3 0ANDC1>25THENC1=30ELSEIFC 
1<=35ANDC1>25THENC1=35 



DUE TO OUR PRINTING THIMBLE, A "[" REPRESENTS AN UP ARROW 
AND INDICATES EXPONENTATION IN A PROGRAM LISTING. 



OHARE INSTRUCTION SET P. 105 

EACH 'AIRCRAFT' RADAR RETURN 

IS LABELED WITH ITS PLIGHT DESIGNATOR LETTER — 
AND ITS CURRENT COMPASS HEADING. 




^ AH13^S1801 

COMMAND CONTACT WITH EACH AIRCRAFT IS ESTABLISHED 
BY TYPING 'C FOLLOWED BY THE SELECT?;D AIRCRAFT 
FLIGHT DESIGNATOH-{A SINGLH LETTER) E.G. 'CA' . 

COMMAND ACKNOWLEDGEMENT RESULTS IN APPEARANCE OF AIR- 
CRAFT 'A' FLIGHT DATA IN TOP LEFT PORTION OF DISPLAY 
INDICATING AIRCRAFT HEADING 'H135' AND SPEED 'SIBfl'. 

AIRCRAFT 'A' WILL HOW RESPOND TO SPEED AND HEADING 
COMMANDS. NOTE THAT THREE DIGITS ARE REQUIRED FOR 
EACH SPEED OR TURN COMMAND. FOR ft LEFT TURN 
TO A COMPASS HEADING OF 90 DEGREES, TYPE L090 . 
COMMAND IS NOT EXECUTED UNTIL THIRD DIGIT IS TYPf.D. 

'STROBE LIGHTS' WILL OPERATE ON THE ONLY RUNWAY ON 
WHICH LANDINGS ARE PERMITTED. — BE CAREFUL! —RUN- 
WAY SELECTION WILL UPDATE AT TEN MINUTE INTERVALS. 
A 'WIND CHANGE' WARNING WILL BE ISSUED AT EACH UPDATE. 

ALL 'AIRCRAFT" MUST BE PRECISELY ALIGNED WITH RUN- 
WAY AT TIME OF TOUCH DOWN. SPEED MUST BE SET TO 

BETWEEN 120 AND 150 KNOTS CRASH OR ABORT WILL 

OCCURR OTHERWISE, 



REAL ESTATE ANALYSIS P. 45 



6300 
6310 

7000 
7010 
7050 
7060 
7070 
7 07 4 
7 07 6 
7089 
7090 

7100 
7110 
7200 

7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7 32 

7330 
7340 



D1=D(1) 

GOTO6050 

'SUBROUTINE TO CALC THE INTERNAL RATE OF RETURN 
IF(-Y+SC+GP(Q) ) >0 THEN7050ELSE7260 
FOR RE=0 TO 5 STEP .01 
GOSUB 7200 

IF (-FVtK+GP(Q) )>a THEN7080 
YD|Q)^RR 
RETURN 
NEXT RR 
PRINT"RATE OF RETURN > 500%. 

YIELD ARBITRARILY SET AT500%." 
YD(Q1=5 
RETURN 

K=0;FV=Y*(H-RE) [N 
FOR J =1 TO N 
SD(J)=SC(J)-(1+HR) [ (N-J) 
K-K+SD(J) 
NEXT J 
RETURN 

FOR RR-0TO-5STEP-,01 
GOSUB 7 2 06 

IF(-FV+K+GP(Q) )<0 THEN 7310 
YD(01=RR 
RETURN 
NEXT RR 
PRINT"RATE OF RETURN < -500*. 

YIELD ARBITRARILY SET AT -500%." 
YD(0)=-5 
RETURN 



ANTENNA SYSTEM DESIGN P. 133 
6070 LD=L2-L1 



OSCAR SATELLITE LOCATOR P. 126 
2360 TM=TM+2:G0T0 2240 



1530 PRINT"NOT A VALID DATE. " ; ; GOTO 340 
15 4 END 



80 Programs for the TRS-80 

Please see 'Delay' on page 16 
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Poor 

Man's 

Floppy 



Now the widely acclaimed 
JPC Cassette System is available 
for your TRS-80* computer. 
The price is only $69.95. 



HIGH SPEED CASSETTE SYSTEM 




FOR TRS-80 



The TRS-80' is undoubtedly one of the best 
small computers around. But its cassette re- 
cording system can be very frustrating, particu- 
larly if you can t read an important cassette. And 
getting tlie \olume control set just right is really 
a pain, Vjaiuing 45 seconds to load ■Blackjack" 
is no fun either 

JPC Products Company has developed an 
imp'oved cas3^,,_ system that uses your pres- 
eni cassette recorder but loads programs 5 
TIMES faster, with much better reliability. 

The original JPC cassette interface is the 
TC-3, which was developed 2 years ago for the 
IV16800 computers It has been very successful, 
as you can see from the magazine and owner 
comments below. Now we have a similar unit for 
the TRS-80' At S69.95 plus shipping the TC-8 
is a real value. 



PRAISED IN REVIEWS 

"The JPC Products fvlodel TC-3 cassette inter- 
face provides a VERY RELIABLE means of 
saving programs and data to tape , . , . both 
fast and reliable. The TC-3 is very convenient 
to use. The hardware is excellent . . . , The 
TC-3 is rated AAA because it is an excellent 
low cost alternative to a floppy disk system for 
the person on a tight budget," 

Product Review 
68' Micro Journal 
June 1979 



OWNERS LOVE IT 

"I love your interface. I have recommended it to 
all." D.O. (Florida) 

"Excellent! A poor mans floppy. Thanks," 
F.B. (Quebec) 

"It is great. I cant believe its so fast." 
E.T. (Arkansas) 

"Great! Fast! Reliable! Worked first time!" 
C.Z. (New York) 

"It is the answer to my prayers!" 

S.S. (New York) 

"The best through-the-mail device I have ever 
purchased." J. P. (Florida) 



Tm glad I bought this kit. Worked first time. 
Never one bad load." R.M (New York) 

'The first kit I have ever built that worked the 
first time without any adjustment or trouble- 
shooting." F-L (Colorado) 




INEXPENSIVE MEDIA 

The TC-8 and your present cassette recorder 
will allow you to store 50,000 Bytes on a stan- 
dard 10 minute cassette. Or 300,000 Bytes on a 
standard 60 minute cassette At a cost of $1 to 
$3. Our C-1 data cassettes sell for SI ,39 with a 
money-back guarantee. 

PLUG IT IN 

The TC-8 plugs into the expansion connector 
on the back of the keyboard and does its thing 5 
TIMES FASTER! Less than ONE BAD LOAD in 
a MILLION BYTES! With the VOLUME CON- 
TROL ANYWHERE BETWEEN 1 AND 8, 

If you prefer you can leave the existing re- 
corder connected nornnally and add a second 
one for the TC-8 

THERE'S A CATCH 

The TC-8 magic is mostly done in software. 
So you have to load a small program into the 
upper seven hundred bytes of memory. It is 
usually out of the way there. We provide the 
software on a cassette that comes with the 
TC-8, Just load it in. 

"TRADEMARK OF TANDY CORPORATION 



YOU CAN BUILD IT 

The TC-8 is available as a kit for $69,95 plus 
shipping. It is very easy to build. It should only 
take you an hour or so. Even if you have never 
built a kit before, you can build the TC-8. 

If you can get toothpaste on a toothbrush, you 
can learn to solder. Our instruction manual will 
show you how 

"CANT FAIL" GUARANTEE 

If you build the TC-8 and for any reason it 
doesn t work, we will make it work at NO COST. 
All you have to pay is the shipping We guaran- 
tee it. 

WE WILL BUILD IT 

The TC-8 is available fully assembled for 
$99.95 plus shipping. We ship assembled units 
3 weeks after we receive your order. But truth- 
fully, with our CANT FAIL" guarantee, we don't 
understand why you wouldn't rather do it your- 
self. 

ORDER NOW 

To order your TC-8 kit, send your check or 
money order for S69.95 plus S3 50 postage and 
handling to JPC PRODUCTS CO., 12021 
Paisano Ct., Albuquerque, NM 87112 (New 
Mexico residents add 4°.o sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks Will delay shipment. We will otherwise 
immediately ship you the TC-8 kit. the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software 

At the present time, the only version of the 
TC-8 available is for 16K LEVEL II SYSTEMS. 



^190 



JPC PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 




22 • 80 Microcomputing, April 1980 



5^(9 REVIEWS 



From page 20 



"Puzzler," Matching," "Beat the Clock" 
and "Complciion". Although these nomencla- 
tures sound like vignettes from an X-rated 
movie, remember that the activitcs are for 
children, as well as adults. Correct answers, 
which follow immediately or at the end of each 
activity, positively reinforce the learner. 

If you buy this software, be prepared to pur- 
chase more than one data tape or be willing to 
makeyour own with i he maintenance program. 
Even though there are six game programs, us- 
ing the original equipment data tape for all of 
Ihem is tedious, since the questions and answers 
arc always Ihe same. 

Though the demonstration tape that comes 
with the package is not a facsiitiile of TYC's 
study tapes, the questions requiring bilingual 
aptitude seem difficult at the adult level, let 
alone a young child's. No doubt the subject 
data tapes for different skill levels would be 
more enlightening. Nevertheless, these ques- 
tions are probably helpful to someone at- 
tempting to learn and practice spelling a foreign 
language. 

"Beat the Clock" drills for speed and ac- 
curacy in answering questions. The user 
chooses from thirteen time lengths in which lo 
respond. This feature gives you plenty of time 
lo type your answer, an essential trait given 
TRS-80's notorious keybounce. The user then 
lengthens or shortens the time he needs to 
answer the questions. 

"Puzzler" provides more entertainment 
than some of the olher activities in the TYC 
package, but it is misleading to call it a 
crossword puzzle. None of ihe blocks connect, 
and numbers, as well as words, appear in the 
blocks. 

Helpful Formal 

The screen displays the question after the 
player chooses which group of squares s/he 
wants to complete first. The help is in the for- 
mat, since the user knows exactly how many 
letters or digits there are in the answer. The cor- 
rect puzzle appears at the end of the game. 

In "Completion Drill and Test" the user 
choo.ses either lo complete the answer for a 
given question (item) or vice versa. The user 
sees the correct answers immediately or at the 
end of the game, depending on his or her 
preference. 

If the player does not give the exac! syntax 
for a question or answer, his response is incor- 
rect. 

This is unfair, since you would have to 
possess a pholographic memory or spend hours 
memorizing the exact wording of the test. It is 
ridiculous lo assume that an elementary level 
student could do as much. 

"Around the Ball Park" provides entertain- 
ment for all age levels. The interesting graphics 
make this game fun to play. You watch a base- 
ball player smack the ball into the stands. For 
each correct answer, the user scores a single, 
double, triple or homerun, and the player at bat 



moves to a base. There are 20 questions on our 
demo tape and the game continues despite that 
German translation bug. 

The "Matching Drill and Test" is wTitten in 
a multiple choice t. rmat. The player elects to 
match the correct question with the given 
answer or vice versa. 

The package includes a blank cassette tape 
and, along with the maintenance program, 
gives you instructions to modify an old subject 
data tape or to create a new one. Its only restric- 
tions are on character lengths for an answer and 



the total number of questions and answers. For 
all the activities, a given entry can be no longer 
than 60 characters or spaces per line. 

The price of the Individual Study Center is 
steep, since only a "random sampling" demon- 
stration tape comes with the package, but, 
hopefully, other TYC tapes do not have the 
same bug as the demonstration tape. Overall, 
the graphics and variety of activity programs in 
the package make the games fun to play, pro- 
vided the user has enough data tapes to sustain 
his or her interest. ■ 



TSHORT 

Web Associates 
Monrovia, CA * 
$9.95 

by John Adams 

1 suppose that there are people who like to 
type coded programs into their computers, i 
am not one of ihem. 1 find flowcharting and 
writing programs mentally stimulating and re- 
freshing. 

My typing .style is, to put it mildly, individu- 
al. 1 can manage with word text, but an expres- 
sion such as "560 T$(L 1 ,5) - MID$(Q$,M4,6)" 
slows me down considerably. Most of my pro- 
gram errors are the result of dumb typing mis- 
takes. That is why finding TSHORT was such a 
pleasure. It doesn't eliminate entering the pro- 
gram, but il certainly makes it easier. 

TSHORT 

TSHORT, produced by Web Associates, is 
an object file which loads into low memory and 
occupies 562 bytes, it is furnished on a cassette 
tape with a program for Level II on one side 
and one for DOS on the other. 

TSHORT allows the user to enter 32 BASIC 
instruction words in a single uppercase key- 
stroke, hor example, hitting Q enters "SYS- 
TEM", F enters "LEFT$(" and P enters 
"LPRINT". Hitting shift and the space bar 
puts you in the edit mode. 

If you need to BREAK into your program, 
hitting shift BREAK causes execution to 
CONTinue. Decals (white letters on transpar- 
ent plastic) which can be attached to the af- 
fected keys are furnished. All of the letter keys 
are used, as well as the BREAK, RIGHT AR- 
ROW, DOWN ARROW, ENTER, CLEAR 
and the space bar keys. Using "." for a current 
line and "?" for PRINT are still permitted. 



The UP ARROW, LEFT ARROW and @ 

keys function normally, as they are not recog- 
nized by the program. For units with lowercase, 
instructions are given lo turn TSHORT on and 
off. 

Using the program with DOS is covered in 
detail, but I only will describe its use in Level II. 
Arrangement of the decals is logical, and it only 
takes a half hour or so to get used to their loca- 
tion. 

The instructions that can be entered with a 
single keystroke are listed in Table I. 

Affixing the decals is quite difficuh; il took 
me over an hour. They come on a narrow Vi 
inch strip of plastic which has an adhesive back- 
ing. Because the decals must fit on the front of 
the keys, they are necessarily very small. The 
letters are about 4/32 of an inch high and there 
is only 1/32 of an inch of space between them. 

It takes a keen eye, a steady hand and a very 
sharp Exacto knife to separate them. They can 
then be lifted with the point of the knife and 
transferred to the front plane of the keys with a 
pair of tweezers. 

The instructions state that meticulous care 
will produce that "factory installed" look. 
Though mine do not possess such a look, they 
are clear and legible. 

Once you have affixed the decals, you arc 
ready to load the program. Upon power up, 
answer the MEMORY SIZE? request with EN- 
TER, unless you wish to reserve high memory 
space. All SYSTEM files should be loaded first. 
Put the tape in the cassette player, checking for 
the correct side and push play. Type SYSTEM, 
enter the file name TS and press / and ENTER. 

The program takes less than 10 seconds to 
load. When it has loaded the monitor will re- 
spond with "TSHORT 1.0 (C) 1979 RON 
WIRTH", and below that the query 
"KUSTOM?". 

The KUSTOM key allows the user to store 
Continue to page 24 



SYSTKM 
LHRiNI 
KIGHTi( 

VAI ( 


RND( 
CONT 
IN KEYS 
1NT( 


ELSE 
TABl 
KUSTOM 
NEXT 


RETURN 
CLOAD? 
I 1ST 
MIDSl 


IHhN 
STRIN(iS( 
GOTO 10 
ilDlT 


LLN( 

OOSUB 

CSAVIi"A 


USING 
DAIA 
^'1. 


INPUT 
L01Ti( 
SiRSI 


ASCI 

GOTO 

CURil 


Additional tlccali 


for DOS;ire: 




FIELD 


MKSSI 
CLOSE 


MKDSl 

evil 


OPEN" 
CVS( 


INSTRI 
CVOi 


These 


decals will 


c pi ace: 




SYSTEM 
DATA 


RNUI 
CSAVL"A 


ELSE 

*-l. 


ASQ 
STRSI 


CLOAD? 
VAL( 






Table I. Single 


keystroke 


instructions. 
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any combination of up to 64 characters for use 
in entering the program. Anything on the key- 
board, included shifted entries, may be used in 
this string except BREAK, which terminates 
the KUSTOM loading mode. 

Thereafter the entire string can be recalled by 
typing shift K. This is handy for a subroutine or 
data hne that has to be called often, a USR call, 
constructing a graphics block using CHRS or 
entering a complex math statement that is used 
several times. 

After loading the KUSTOM string, BREAK 
returns you to BASIC. If you have no use for a 
KUSTOM string, BREAK is the default. The 
screen is now cleared, and the READY and 
prompt sign appear in the upper left corner. If 
there is a need to change the KUSTOM string 
you must enter NAME, which returns you to 
the KUSTOM loading mode. 

The program loads consistently from my 
CRT-4 1 cassette recorder with a volume level of 
5. If you use another machine, you may have to 
experiment a little. Each program is recorded 
twice on the cassetie. 

Options 

There are also some options available. For a 
fee Web will alter the program so that it can be 
relocated to any point in high memory you 
specify. 

Custom keys and decals are available for a 
price, but the instructions state that damaged 
decals will be replaced if you send them in with 
a list of replacements needed. Complete in- 
structions are given for DOS 2.1, 2.2, NEW- 
DOS and BASICR and the package comes with 
a standard warranty. ■ 



Running Wild — 

The Next Industrial Revolution. 

Adam Osborne 

Osborae/MeGraw Hill, Inc. 

New York, NY 

Paperback, $3.95, 181 pages 

Chris Brown 

Running Wild — The Next Industrial Revo- 
lution, by Adam Osborne is an entertain- 
ing and thought-provoking book. 

Osborne's background includes a Ph.D in 
chemistry and experience as an author/pub- 
lisher of microelectronics texts including Intro- 
duction to Microcomputers and 8080 Program- 
ming for Logic Design. 

His successful publishing operation was 
recently acquired by McGraw Hill, inc. 

Osborne's book contains both history and 
conjecture. In his introduction he candidly ad- 
mits his views are those of a layman. Although 
approaching futurism from a technological 
perspective, the author remains skeptical of its 
benefits. 

Osborne's premise is based on a simple dic- 



tum of physics which states that any ordered 
system undergoing change is an unpredictable 
one. The microelectronic revolution has, he 
claims, resulted in so many changes in our 
lifestyles that serious questions of cultural 
balance are being raised. The theory is not a 
new one, but Osborne's treatment of it from a 
microcomputing viewpoint is unique. 

The author begins by examining the recent 
history of technology in general and microelec- 
tronics in specific. Spawned in the space pro- 
gram, microminiature components and LSI 
techniques have, he feels, created a revolution 
in information management. 

Large corporations, such as IBM, have been 
caught off guard and, unable to respond to the 
needs of the new science, have relinquished the 
role of innovator to small, newly established 
companies. 

In addition, a new breed of entrepreneurial 
gypsy has surfaced to guide these small com- 
panies to success. Operating beyond the con- 
straints of corporate loyally, these new 
journeymen engineers and designers have be- 
come a mobile and unpredictable force in the 
electronic industry. 

Osborne tells some interesting tales of the 



birth, growth and, in some cases, death of firms 
Uke MITS, Wang, IMSAI, Digital and ITEK. 
The biographical sketches of their founders are 
the stuff of American dream stories. 

He also makes some interesting predictions: 
Fully one half of all current blue and white col- 
lar jobs will disappear in the next 25 years; most 
manufacturing jobs will become automated; 
programming will be taken over by computers; 
doctors will come to depend on computers for 
diagnosis and spend less time with patients; 
computers will totally revolutionize the educa- 
tion industry; telephone and microwave are the 
growth industries of' the future; professional 
sports will see a large increase in popularity; in- 
creased leisure time will force people to deal 
with vastly different lifestyles. 

Will these events take place in the next 25 
years? Some are certainly more likely to occur 
than others. Some are already happening. 

Finally though, Osborne's book is worth- 
while not because of the accuracy of his 
analysis, but because his book makes us aware 
of the social impact of today's innovations on 
tomorrow's reality. For this reason it is a wel- 
come edition to the nuts and bolls world of mi- 
crocomputer literature. ■ 



Introduction to TRS-80 Graphics 
Don Inman 
dilithium Press, 
Portland, Oregon, 1979 
132 pages $8.95 

Stephen F. Nowak 



Having worked with several types of 
microcomputer terminals, I find that (ex- 
cept when debugging a program) nothing com- 
pares to a CRT. A television terminal is much 
more alive than a teletypewriter, since the text is 
in a dynamic state — and with a screen it is pos- 
sible to utiUze graphics. 

Some microcomputers, like the TRS-80, of- 
fer graphics capabilities that are not as im- 
pressive as other manufacturers — but a well 
understood TRS-80 can draw rings around a 
more sophisticated unit that is a mystery to its 
operator. Introduction to TRS-80 Graphics 
makes this in-depth understanding possible. 

The author, Don Inman, takes the reader 
through basic shapes such as rectangles, to the 
more sophisticated shapes involving curved 
lines (no mean feat with the TRS-80). The 
reader not only understands how he produced 
his designs, but also knows how to modify 
them as needed. 

Also included are sections on bar graphs, 
animated word graphics and even video games, 
all of which can be especially useful for 
teaching programs. 

The book is well written and the text laced 
with examples and exercises. Graphics is a 
dream for the TRS-80 owner, since it is meant 
to be read with the computer nearby. The ex- 
amples and illustrations are interesting and 
usable even in Level I. 



Don Inman's efforts have produced a worth- 
while text that will be useful as a teaching tool 
and as a reference. It belongs in the collection 
of every serious TRS-80 owner. 



Air Flight Simulation 
Computer Program — 
TRS-80 Level I or II 
Instant Software 
$7.95 



Most computer hobbyists perform many 
useful duties with their computers, but 
still enjoy loading in a program just for plain 
fun. While everybody plays Star Trek in one 
form or another, you can only enjoy so many 
rounds of "Klingon approaching." When you 
reach that point , it 's time for a program li ke A ir 
Flight Simulation. 

UnHke many programs, this requires a fair 
amount of thought and I'd advise you to avoid 
the temptation to run this first and read the 
directions later. Read the directions first, you'll 
enjoy it much more. 

Simply put, this turns your monitor screen 
into the control panel of a small aircraft and 
you must fly the plane completely by instru- 
ments. This becomes all the more interesting 
since you can decide what type of flight plan 
you are going to follow. 

The program monitors altitude, attitude, air 
speed (including overstressing the engine) and 
land miles traveled. I found that the more I ran 
this program, the better I hked it (and I was 
quite pleased when 1 was able to complete a few 
acrobatic maneuvers). 1 was impressed. This is 
a program that should be run — not talked 
about. ■ 
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TRS-80* OWNERS: 

• Let the computer write your "Basic" programs for you! 

• Draw Pictures, animated figures, data forms! 

• Create a library of dispiays! 

• Produce "Commercial" grade software! 




Animated prograntmci* 
Games ^ * 

Writer * * 
5^ -^Assembly ^ 

* + Language ^ 
^ • Programmer 

* ^- * • * 
ercial ^ 
M Software^ ^ ^ 

* Houses 



♦ Comm< 



The Magic Cursor is a Revolutionary Family of Products which 
provides a dramatic new method of reproducing drawings and 
displays that you create on your screen. It makes both simple 
displays and complex interactive data input forms- it stores a "Basic 
Program" on disk (or tape) ready for you to execute alone or as a 
subroutine. It produces screens in both standard and w/ide screen. 

It is available for any level 2, 16K or iargersystem with tape or disk. 
An optional version is now available with output files for assembly 
language programmers. 

Be sure to pick out the system that fits your present needs and 
order it today. You may upgrade your original copy by paying the 
difference and a moderate service charge. 



MAGIC CURSOR PROGRAMS 



THE BABY CURSOR allows you to easily create screens {including 
graphics) on your video. A powerful command then generates the 
BASIC instructions to recreate the screen. For the first time, a 
program for automatic generation of video display forms. (16KTape 
or 16K Disk) $24.95 

THE MAGrC CURSOR i additionally makes sophisticated Data Entry 
and Display easy. With Magic Cursor I you define the Data Entry or 
Display fields directly on your screen. The definition commands 
generate the BASIC instructions to implement the Data Entry and 
Display. The Magic Cursor I has commands which move, centerand 
duplicate blocks of graphical or alpha/numeric displays. You can 
even justify text. (16K Tape Only) $79.95 

THE IWAGiC CURSOR II adds the power to write animated games 
easily in BASIC. The Magic Cursor II allows you to reload previous 
screens either from memory or from Disk, You can then modify them 
and store either the modified screen or only the changes, (32K Disk 
Only) $99.95 

THE MAGIC CURSOR ill will be available soon for the new Model! I 
Computer (32K One or more Disks) . . , , $149.95 

THE MAGIC CURSOR tV provides the features of Magic Cursor 
but has output for the assembly language programmer, (32K Disk 
Only) $99.i 

■Trademaik of Radio ShaoK, a Tandy Co. ,^^j»'m 

■■IWIIJBIIililllliihilHilllllllllliillillllliMIMi^l^lM^IMBMBMMMBP^*! 



OTHER PROGRAMS WRITTEN 
BY CCC 

GENERAL LEDGER, Accounts Payable. Accounts Receivable, 
etc. - We are an official Osborne Conversion Co, 

PROGRAMMER UTILITIES for supporting assembly language 

programming and Disk modification, 

MAGIC MEMORY - personal inventory programs for stamp 
collection, coin collectors, personal libraries, etc, 

WRITE FOR OUR COMPLETE 
SOFTWARE CATALOG!! 



Send Check or Money Order payable 




CUSTOM 
COMPUTER 
CENTER, INC.. 




ATTN: Jim Martens^ 
P,0, BOX 58042. 
HOUSTON, TEXAS 77058_^ <i 
or call: 71 3/474-2428 .^S>* 



Cy mail Master Charge, Visa, Certided Check or Money Order 
accepted Personal Checks requite 14 days to cleat. C O.D ot collect calls not accepled. 
Software GuaranteeO for replacement only. Prices subject to change without notice Programs 
supplied on cassette tape, for disk versions, the cassette supplied will automatically create a 

disk file. 



1^ Reader Service — seepage 147 
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' '(They) make the plausible but 

erroneous assertion that the Radio 

Shack method of data encoding 

. . . is relatively forgiving of 

tape speed variations, " 



Anadex Update 



! read the February 1980 issue of SO Micro- 
computing with great interest, and was 
pleasantly surprised when I came to the article 
by Walter June reviewing the Anadex Model 
DP-8(X)0. Contrary io many product review ar- 
ticles I have read, he obviously had hands on 
experience with the DP-8000 before writing 
about it. The article was fair and accurate for 
the version he had. 

For the record, however, 1 would like to up- 
date some of the "negative" points. Printers 
with serial number AO 2000 and above incor- 
porate additional circuitry to allow a Data 
Strobe minimum length of 0.5 micro.seconds 
(not 2.0 microseconds.) The note, however, 
was allowed to remain (for reference) in the 
Operator's Manual until the October 1 979 revi- 
sion. 

Printers with serial number AO 2919 and 
above (and also a few earlier ones) incorporate 
a Self Test feature, and, beginning with serial 
number AO 3094, adjustable width sprockets 
are incorporated. Black ribbons are now 
available but have a shorler life expectancy 
than the purple. 

For those users who must be able to line feed 
through top-of-form, a patch EPROM is avail- 
able, at a very modest cost, to remove this 
limitation, allow zero form length, and delete 
the time-out feature. 

Users of the DP-8000 printer having ques- 
tions or difficulties are welcome to call our ap- 
plication engineers for assistance. 

This was my first opportunity to read 80 
Microcomputing, but I will look forward to 
succeeding issues with pleasure and interest. 

Kenneth A. Mathews 

Vice-President of Marketing 

Anadex, Inc. 

Chatsworlh, CA 



Only Plausible 



In their interesting article "Cassette Prob- 
lems" (January 1980, p. 62), Don Stoncr and 
Dick Barker make the plausible but erroneous 
assertion that the Radio Shack method of data 
encoding, with a separate sync pulse for each 
data bit, is relatively forgiving of tape speed 
variations. Actually, the opposite is true. 
Failure to observe the onset time of the data 
pulse loses information. When one pulse is used 
for both sync and data, the tolerance limits for 
variations in speed are roughly doubled. 

In fact, sensitivity to variations in tape speed 



undoubtedly contributes to the TRS-80 loading 
problem. The load routines Ihat I've examined 
(in Level 1 ROM and Level II T-BUG) fail to 
achieve the theoretically possible tolerance, 
because they begin looking for the sync pulse 
too soon and are liable to calch the tail end of 
the data pulse. This error is more likely when 
the volume setting is high or the tape speed is 
low. In other words, the volume setting is more 
critical when the tape was written on a faster 
recorder. 

If there is a sound reason for the sync pulses, 
1 haven't been able to fathom it. At most, they 
are a programming convenience. The TRS-80's 
unique combination of low data density and 
tricky loading is primarily caused by poor soft- 
ware. I routinely record at 1500 bps without 
any difficulties, by encoding one pulse per bit. 
Norman D. Whaland 
430 t. 9th St. 
New York. NY 

Sargon II on Disk 

Owners of the new TRS-80 Sargon II chess 
program tape may be interested to know that 
there is a simple way to put the program onto 
disk, requiring no additional software. 

First, power-up Level II BASIC by holding 
down the Break key while you press the Reset 
button. Load the Sargon II master tape ac- 
cording to its instructions. When the program 
comes up running, hold down the Break key 
and push Reset again. Push Enter for Memory 
Size, Now carefully type in the following one- 
line BASIC program. Check it, and run it: 

li-OKJ-ITO4,l:lNPiJTK:POKL30460 + J,K: 
10KL = I IO80:NEXTI.:NEXTJ 

The program prompts you with ''. to enter 
each of the forty-three decimal numbers listed 
below. Type them carefully, pushing <Enter> 
after each complete number: 

1 2!*? 44 17 74 .1,1 12B 2.17 176 f,2 1^5 50 
12 (yl bl (i 50 \i M <<2 m 50 !4 64 195 80 
1 26 45 17 25 17.i n 25 119 237 184 195 

After the last one is entered, the Ready 
prompt reappears. If you see that you've 
entered a number incorrectly, press Break and 
run the program again. 

Now make sure the disk in the drive has at 
least 10 grans of free space and no write-protect 
tab. Still in Level II BASIC, type: 

SYSTEM <nii[i;r> 

And at the *? prompt, type: 



,104'-)0<rnter> 

The disk will boot up normally. At "DOS 
RHADY", type: 

HUMP SAkC;ON2/CMD (START = X'WOOUM:,KD 
X'AD19'.TRA = X'ACFD'KrLnler> 

When the disk stops running, it will have a 
copy of Sargon II on it. Push Reset, and at 
DOS READY type: 

SARi:iON2 <"l:iner> 

The program should come up ready to play. 

Koxton Baker 

56 South Road 

Kllington, CT 



Reserving Memory 



I would like to pass the following on to the 
readers of 80 Microcomputing. 

1 enjoyed Roger Papc's article Music 
Maestro! very much. My first thought was to 
put music in sonieof my games, but theide^of 
having to remember to reserve memory for the 
USK routine did not appeal to me. I have had 
this problem with some of my other software 
that also uses high memory. I therefore sought 
a way to re.serve enough memory for all of my 
routines upon power-up. 

Since I have a disk, I was in luck. Disk 
BASIC and TRSDOS use the locations 4049H- 
404AH to keep track of the top of usable mem- 
ory. By putting in the values that I want for the 
top of memory before entering Disk BASIC, I 
can answer the MEMORY SIZE? question 
with <ENTER>. 



10 CI S:INPUT"MEMS1ZE IN DEC1MAL";M 

20 MSB.= lNr(M/256):LSii-M-MSli.256 

30 FOR X = 29952 TO 29%2:KfcAD tC:POKE X.K: 

NEXT X 
40 DATA 253,33,0.0,253.34.73,64,205,45,64 
50 POKE SiH7502,LSU:POKl: &H7503,MSB 
60 PK1NT:PKINT-'TVPF THE FOl 1 OWINC 

FOR EACH COPY YOU WANT TO SAVEf 
70 PRINT:PR1NT"F RESERVE/CMDrO 7500 

7SOA750O<ENTER>'' 
80 CMD"r',"TAPEDlSK" 



The program in Listing 1 allows you to put a 
small (1 5 byte) machine language program on 
your disks with the help of TAPEUISK. I'o use 
the program, load Disk BASIC and answer the 
MEMORY SIZE? question with 29952. Type 
in the program and run it. Input the decimal 
value of where you want the top of memory to 
be. The program then POKEs the machine ian- 
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guage routine into high memory and exits to 
TAPEDISK. 

Once you save Ihis program on your disk- 
ettes, use the TRSOOS AUTO command to al- 
low RESERVE/C'MD to execute upon power- 
up/rcsci. With this done, you will never have to 
remember where to set the top of memory. 

Nick Moss 

108 Via Hermosa 

Sanla Cruz, CA 

Watch That Print 

I jusi v\ anted to let you know that I have very 
much enjoyed the first two issues of 80 Mkro^ 
compiilifig. It isniee tohaveaqualitymagazine 
whose content isn't three-fourths about a sys- 
tem we don't have. 

i especially wanted to comment on the arti- 
cle, "[ isicn 10 your Keyboard". The part on 
TRS-80 Cassette Recorder modifications was 
excellent. I did mods I, 3 and 4. They worked 
beautifully. The money 1 saved over buying a 
commercial Interface unit paid for my subscrip- 
tion to your magazine. 

One comtnen! on the Feb. issue that prob- 
ably will apply to future issues unless you arc 
careful is the size of print of some program 
listings. "Household Accountant" on p. 116 
just aboui disappeared into the microscopic 
range, 

Koherl K. I'onlius 

4703 Cap. Rocii Drive 

Auslin. TX 

We 're glad thai you 've enjoyed 80 so far! 

We, 100, are happy with the magazine bill 
realize ihul there is always room for improve- 
ment. 

As for. printouts, we are gradually changing 
to a standard size and formal — produced on 
the 80 editorial Spinwriter. We feel that l/iis 
will result in much clearer lisfings. — Eds. 

"Gotcha" 



Dan Lovy's excellent idea for a Winking 
Cursor (Jan., p. 68) has a "gotcha" in ii which 
might trip up some of your readers, particularly 
if the time delays are increased or if the basic 
idea is put to use for other purposes. 

The INKEYS function must reset itself after 
each entry in order to accept a new entry. In 
Dan's routine, INKHY$ can only read input 
data between liming loops al which lime it is 
resel. The only reason that it reads a key enlry 
at all during the liming loops is due to the one 
key input buffer which holds an input character 
until it's read. Unfortunately, the buffer can- 
not accept more than one entry during the wail 
period and must sit there until the delay loop 
times out before it can read the current eniry 
and get on with the program. Both of these fea- 
tures are undesirable for louch lypists (which is 
how I discovered them) and becomes in- 
tolerable if the liming loops are lengthened. 

Foriunaiciy, a couple of simple changes to 
lines 1010. 1020 & 1030 will correct these prob- 
lems as shown here: 



1010 PRINTS PO.(.HKi(y51; : l-OR WAI I I I03S: 
IN$-INKCVS : 1)-" INSO"" THEN IWO 

1020 NiiXT 

IIBO f-Ok \VAIT=I TOSS: INt --= iNKtiVi : II- INI-"'" 
THLN PRINT @ PO. ■' "; : NEXT : GOTO 1010 

Dan's concept allows complete ilexibility in 
formatting and, better yet, il allows input state- 
ments wiihoui the ugly, ever present question 
mark al Ihc end. 

Try this sample program and see how much 
neater it is than the standard inpnl format. 



Dan's "Winking Cursor" should be in every- 
one's bag of tricks. Il sure has a place in mine. 

10 (.T.S : PRINT (ri- 524. "PLIASE 1 VPI- YOUR NAME-": 

PRINT cm 5%, ■'■■; : CiOSUB m*> 
20 PRINT @ 910, "YOUR NAME IS "■; Ell : COlO 2(1 



William H. Khurn. Jr. 

506 Diitton Koad 

Sudbury, MA 



SO DEBUg 



A Fix for a Fix 



Subscript Era 



Regarding my article printed in your 
.lanuary issue of W Microcomputing, 
"Cheap CLOAD Fix" p. 132, I've re- 
ceived a couple of calls about it not 
working on some equipmeni. 

You may want to pass this on lo some 
of your readers in a future issue. If Ihc 
modification doesn't work as is, add a 
33 10 50 ohm resisior in series with the 
recorder ouiput (computer input) jack. 
This should correct most of ihe prob- 
lems. 

Scoll D. Kinn 

7905 59th Ave. N. 

New Hope, MN 

Babybug Revisited 

I'd like to point out an error in the 
program lisling on page 48 of my article 
Babybug 1 in the February issue of 80 
Microcomputing . 

Line 10 should read: 



10 = 0+ I:PR1NTCHRS(27);CHRS;W1.: 
K-K + l:IEK<256GOTOI2 



Denni.s Bathory Kitsz 
Roxbury. VT 

Household Update 

In your February issue, 1 found what 
1 believe to be an error in the "House- 
hold Accountant" article. 

The program on page 116, line 565 
should read; 

.■^(iS n S 2 ilM.\ i)0« ([KH 5(X)) 



1 hope! 



J. i . McGirr 

Fres, Seaway Cheiiiica!. Inc. 

7005 Mill Road 

Brecksviile, OH 



1 was pleased to see my music article 
in the inaugural issue of SO Microcom- 
puting; allhough at this point it may ap- 
pear lo many as being slightly outdated. 
The arlicle was submitted to Kilobaud 
in December 1978, a full year before be- 
ing published (before Micro Music oi 
any other sound generation software 
was available). The intent of Ihc article 
was to indicate the ease with which 
sound could be generated and en- 
courage others to develop software with 
sound. Since that time numerous pro- 
grams with sound have appeared. How- 
ever, considering the number of com- 
ments received, the article appears lo 
have still served its purpose. 

For those who may have encouniered 
problems getting ihe music roulines lo 
work properly, the only error in Ihe 
listings was a subscript error in line 100 
of Figure 3. The correct statement 
should be: 

im Ri:AD k:II" k K) X - IJSRINf'ritKil.COTO IW! 

rhosc machines having the D.ATA 
RESTORE problem should obviously 
include a POKE 16553,255 at the begin- 
ning of any BASIC program with 
READ slatemenls. 

When aiiempting to run the program, 
an EC error message, a jump to the 
MEMORY SIZE? dialog, or any other 
strange behavior indicates a bad value in 
one of Ihe DATA statements. Check 
each number carefully. (A zero with a 
slash through it can easily be confused 
wiih an eight, etc.) Incidenially, if the 
MEMORY SIZE quesiion is encoun- 
tered, be sure to push the resei huiton 
behind the keyboard immediately lo 
avoid losing the source statements. 

Roger I,. Pape 

7545 Marble Dr. 

Liverpool, NY 
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edited by Michael Comendul 



TRS-80 Expo '80 



What is being billed by Radio Shack as "the 
business and educational computer show of the 
decade," will be brought to more than 50 cities, 
primarily major market areas, by the nation- 
wide chain. 

Expo '80, according to Radio Shack, is 
designed to acquaint small businessmen, 
educators and professional people with the 
value of modern computer technology, and to 
demonstrate Radio Shack's line of TRS-80 mi- 
crocomputer systems. 

Visitors to the exhibit will be able to see a 
multi-media presentation and participate in a 
"hands-on" demonstration. 

Radio Shack computer experts will be on 
hand to answer questions and demonstrate new- 
software programs including: Educators Math 
K-8, Word Processing, Standard & Poor's 
"Stockpak" Stock Selection System and Port- 
folio Management System, Business Inventory, 
Business Accounts Receivable, and various 
personal applications. 

A TRS-80 Model 1 4K Level I Microcomput- 
er System will be given away at the Expo. All 
those attending will receive a certificate good 
for a free computer language course at any 
Radio Shack Computer Center. 



Invaders 



A new arcade game, Invaders, is available 
for the TRS-80 Level II 16K from LEVEL IV 
Products, Inc., Livonia, MI. The user must de- 
fend the earth against the aliens who are march- 
ing down across the screen dropping bombs. 

The program, written in machine language, 
comes complete with sound effects. At the end 
of each game, it displays the current score, 
previous score, highest score (or new high 
score), hits, shots and misses. 

The cost is $14.95 for cassette and $19.95 for 
disk. 

Reader Service >^ 162. 



Real-Time Analyzer 



The real-lime audio spectrum analyzer, in- 
troduced by Eventide, New York, NY, for the 
Commodore PET computer, is now available 
for both the Radio Shack TRS-80 and Apple 
computers. 

The VTU02 {for the TRS-80) divides the 
audio spectrum from 20 Hz to 20 kHz into 31 
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Real-Time Analyzer from Eventide 



third-octave bands, and displays these bands, 
wilh their relative amplitudes, on the computer 
CRT. 

It can be used for measuring sound and noise 
levels, for optimizing the eciualization of a hi-fi 
or public address system, for checking the fre- 
quency response of audio components, and for 
speech and sound pattern recognition (useful 
for voice control systems). 

Data can be stored, and compared with past, 
future, or other channel information. Pro- 
grams to access the analyzer are written in 
BASIC, and three are provided with each unit: 
Interactive Operation, Minimal Operation and 
Self Test. 

The VTU02 plugs into the TRS-80 expansion 
port, providing an equivalent port for further 
expansion. 

Reader Service i^ 163. 



Enchanted Island-Plus 



Greg Hasseit, North Chelmsford, MA, has 
written two machine-language Adventures for 
the 16K Level II TRS-80. The first. Enchanted 
Island-Plus, is a language translation of En- 
chanted Island, a member of the series of 
BASIC Adventures. 

The second assembly language Adventure is 
called Mystery Mansion. 

This new series features true split-screen 
scrolling, a blinking graphic cursor, and dual 
prompting symbols. The computer's responses 
are instantly displayed. 

Using a database technique which does not 
require on-line interpretation by the main code, 
the series offers considerable memory for addi- 
tional game logic. 

These adventures are available from Mad 
Hatter Software. 

Reader Service t^ 164. 



Artificial Intelligence 



"Eliza," an exercise in simulated in- 
telligence, is now available from Radio Shack, 
Ft. Worth, TX, for use on their TRS-80 micro- 
computer. 

Eliza allows a computer to analyze conversa- 
tional English, respond to questions and carry 
on a "conversation" with the person at the 
keyboard. 

Designed for use with a Level 1 or Level II 
Model 1 16K TRS-80, the program cassette also 
includes Talking Eliza, which permits Eliza to 
"speak" through a TRS-80 Voice Synthesizer. 

Eliza is available from Radio Shack for 
$14.95. 



Stock Tracker 



H & H Trading Company, Pleasant Hill, CA 
has released a new version of its Stock Tracker 
program. Based in part on Joseph E. Gran- 
ville's theory of On-Balance-Volume, the pro- 
gram analyzes supply and demand factors on 
individual securities, stocks, options and com- 
modities, and tells the user when to buy and sell 
them. 

The program includes an automatic escape 
from the enter -data routine, a 250 percent in- 
crease in speed of printouts and screen displays, 
the inciusion of trading signals on each securi- 
ty's daily history file, three new logic sections to 
perfect the timing of recommendations, and 
the ability to warn the user when an inter- 
mediate bottom is approaching on a security. 

Stock Tracker, including a user's manual, 
costs $150. The manual is available separately 
for just $15. 

Reader Service t^ 165. 



Random File 
Disk Sort/Merge 



A new disk sort/merge system, DSM, is 
available for both the TRS Mod-land Mod-ll. 
DSM, a self contained system written in ma- 
chine language, sorts large multiple diskette 
files on a minimum one drive Mod-ll or two 
drive Mod-I disk system; rearranges all records, 
without key files; sorts random files created by 
BASIC, including sub-records spanning .sec- 
tors; sorts on one or more fields in ascending or 
descending order (fields may be character, bi- 
nary integer or floating point); provides op- 
tional output field deletion, rearrangement. 
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and padding; and saves sort commands for 
reuse in production applications. 

DSM is available from RACET computrs, 
Orange, CA, for $75 (Mod-1 version) or $150 
(Mod-ll version). 

Reader Service t^ 172. 



Software Catalog 



The TRS-80 Software Source, available from 
CompulerMat, Lake Havasu, AZ, is a pub- 
lished listing of 5,000 programs for the TRS-80 
from over 360 vendors. 

Published in the spring, summer and fall, 
separate listings in the catalog are alphabetized 
by program title, by vendor, by cassette, by 
BASIC and by disk. 

A one year's subscription sells for 515 and a 
single issue for $6. 

Reader Service ..-'173. 



Vehicle Maintenance Software 



A new software package, thai maintains 
costs for cars, trucks, boats or airplanes, has 
been released by Dalacomp, Elk Grove Village, 

The menu driven programs record fuel Use, 
repairs and other miscellaneous expenses. 
Average and lotal co.slK can be calculated for a 
selected period for each set of records and a 
summary program gives the complete cost pic- 
ture. 

The programs require at least 32K and a disk 
drive. Supplied on a formatted disk, they were 
written under NEWDOS, but will run under 
TRSDOS 2.3. An expansion of the MILES/ 
GAL program issued by Datacomp last spring, 
the cost is $24.95. 

Reader Service f 166. 



Mass Memory for 
Microcomputers 



TARZAC Systems, Virginia Beach, VA, an- 
nounces their new line of five-screw leadcrless 
computer-cassettes. The microcomputer mass 
memory unit consists of 10 C-12 or 10 C-20 
computer cassettes in a storage book. 

TARZAC cassettes are unconditionally 
guaranteed for life. Any malfunctioning cas- 
sette can be returned for immediate replace- 
ment. The cost is $17.95 for 10 C-12 cassettes 
and $24.95 for 10 C-20 cassettes. 

Educational institutions may be eligible for a 
20 percent discount. 

Reader Service t^ 167. 



Carry-all for 80 



the expansion unit and a tape recorder or up to 
two disk drives in a fully operational configura- 
tion. Plug in the power cable, connect the 
monitor and operate. 

The removable lid has storage space for 
manuals, disks and working papers. The com- 
puter and disk drives (or tape recorder) are held 
in position with security straps and cradled in 
foam rubber while operating, transporting or 
in storage. 

The cases are constructed of high quality lug- 
gage material covered in vinyl with padded han- 
dle, lock, furniture protecting pads and steel 
skids. 

The basic computer case sells for $109, the 
monitor case for $84 and the Line Primer il 
case for $89. 

Reader Service u^ 174. 



Freedom Changes 



The Freedom Option reorganizes TRS-80 
memory to emulate a standard Z-80 machine, 
that responds to conventional CP/M type soft- 
ware, while the Extended Memory adds RAM 
to the Mode! 1 machine. It increases the usable 
memory to 64K, 

Both products are from F,t.C,, Ltd., 
Woburn, MA, 




A set of attache-style carrying cases for the 
TRS-80 computer from Computer Case Com- 
pany, Columbus, OH will hold the keyboard, 



Freedom Board from F.E.C.. Ltd. 

The Freedom Option consists of a circuit 
board, system disk and instructions. The soft- 
ware (Operating System) converts the TRS-80 
to a "real" CP/M type machine, loads pro- 
grams at Hex 100 and responds to Call 5. 

The disk format is changed to a 128 byte, 18 
.sector IBM format, instead of the 256 byte sec- 
tor format of the TRS-80. Freedom Mode sup- 
ports both serial and parallel printers. The 
Operating System supports both 35 and 40 
track disk drives and is compatible with other 
7.-80 based machines. 

The change is pluggable and transparent, 
while running in TRS-80 mode. 

In the Freedom Mode, the ROM is no longer 
used, and there is room to address 14848 addi- 
tional bytes. The Extended Memory fills this 
gap and increases the addressable RAM to a 
full 64K bytes. This memory is structured to ac- 
count for the memory mapped areas of the key- 
board, screen and l-O functions. 



Both changes presume a 48K Disk System for 
installation. The Freedom Option is priced at 
$245 and the Extended Memory is an addi- 
tional $295. 

Reader Service >^ 175. 



Introduction to 
Microcomputer Interfacing 

A two-week short course on the fundamen- 
tals of microcomputer interfacing will be of- 
fered by the Virginia Military Institute from 
July 14 through July 25, 1980. This will be a 
hands-on laboratory oriented course which will 
feature the popular TRS-80 microcomputer 
(Level II with 16K). One microcomputer sta- 
tion for each two participants. Course to be 
held in the scenic, historic Shenandoah Valley. 
Reasonable room and meal charges. Camping 
facilities available. Tuition $450. Academic 
credit available. For detailed information con- 
tact: Dr. Philip 6. Peters, Dept. of Phvsics, 
VMI, Lexington, VA 24450. Phone (703)463- 
6225. 



The Keyplus 

Integrated Utility Package 

Keyplus, a colleclion of utilities enabled 
directly from the keyboard, is available from 
SJW, Inc., Huntington Valley, PA. Choose 
from seven different keyboard entry modes; 
BASIC shorthand (two modes), direct graphic 
character input {three modes), typewriter style 
input, and standard TRS-80 keyboard entry. 

Keyplus supports auto-repeat, lowercase 
video (optional hardware modification re- 
quired), restoration of lost programs, keyboard 
debounce, single keystroke user definable 
strings, and more. Routines may be enabled or 
disabled in just two keystrokes. 

The Level II, 16K version is (v.ailable for 
$14,95. A more powerful disk version {32 or 
48K) sells for $19,95. 

Reader Service ..^168, 



The Corvus Cassette 



The Corvus Mirror, San Jose, CA, uses a 
standard video cassette with total capacity of 
100 million bytes which, in less than ten 
minutes, will accept the entire ten-megabytes of 
data from a Winchester eight-inch hard disk 
without operator attention. 

The Mirror interfaces the data signals on the 
Corvus disk to a separate customer-supplied 
video cassette recorder of the VHS, Beta or 
U-Matic format. If a larger data capacity is re- 
quired, a reel-to-reel video-tape recorder can be 
used. 

The cost of the Mirror is $790, A complete 
system with commercially available video cas- 
sette recorder can be assembled for under 
$1500. 

Reader Service t-- 171. 



•^ Reader Service— see page 147 
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/ want to thank all of you members 
of CA for letting me speak fiere 
tonight, for letting me unburden my 
weary soul. You wouldn't think to look 
at me now that once I trod the straight 
and narrow . . . well dressed ... a good 
job, a nice home and family. 

But that was before I met Murray . . . 



Barry Kornfeld 

190 Waverly Place 

New York City, NY 10014 

t all started long ago in— let's call it "Anytown, USA." 
One evening, as I was walking home from work, I 
noticed a man furtively beckoning to me from an alley. 

"Pssst, hey, kid!" He had the feral eyes of a salesman 
coming in tor the kill. They gleamed hypnotically. Help- 
lessly, I followed his crooked finger into the depths of the 
alley. 

My Eyes Grow Wide 

He opened a door, motioned me through, and I found 
myself in an electronics hobby shop. The man wore a 
large, yellow badge bearing the words, "Video Nook. 
Hello, I'm Murray, the 
Manager." His finger 
uncurled and pointed to 
what looked like a 
truncated typewriter with a 
jumble of wire where the 
carriage should be. The 
wires led to a plastic TV set 
and a cheap cassette 
recorder. 

"There it is, kid! Your 
ticket to paradise!" 

"What is it?" I asked, my 
eyes growing wide. 

"What is it?" he repeated 
with feigned amazement. 
"Don't you read the 
papers? Don't you know 
that you're in the midst of 
the Personal Computing 
Revolution? That's our new 
TRASH 50H" computer!" 

"Gee!" I exclaimed, my 
eyes growing even wider, 
"A computer! What can 
you do with it?" 

"Not me, kid . . . you\ It 
will add and subtract 
numbers and store phone numbers and recipes." 

"But I can already do that with a calculator, an address 




vS=^ 



Warning: The Surgeon General 



A Confession 



book and file cards." 

"That's beside the point," he said, edgy with 
exasperation. "Just think, you'll be part 
of the computer generation and it's only 
fourninetynineninetyfivewetakemastercharge." 

"Wow! A whole computer for five hundred bucks. That's 
awfully cheap." 

"Well, how about it, then?" he said, lightly licking his 
lips. "Shall I wrap one up for you?" 

"Gee, i don't know. I've heard some of the guys talking 
about getting hooked on this stuff and having to buy all 
sorts of things to support their habit." I pointed to a rack 
behind the TRASH 5CH with all sorts of black and silver 
boxes bearing thousand dollar price tags. 

"Nah!" he said, with a deprecating wave of his arm. 
"That stuff is only for heavy users!" 

"Users?" 

"Yeah, that's what we call people who get hooked on 
computers. But that'll never happen to you. I can tell about 
these things." 

"Gosh, I don't know," I said, scratching my head. 

"Come on . . ." said Murray, his eyes on fire, "Don't be a 
sissy! All the guys do it!" 

Helpless again, my charge card hit the counter. 

And so, I found myself entering my basement with a 
large assortment of cardboard boxes. I sneaked in the back 
way to avoid my wife's inevitable complaint about "another 
expensive piece of junk to sit in the closet and gather 
dust!" 

My Heart Begins to Flutter 

After feverishly zipping open the boxes and plugging the 
system together, I turned on the power. The monitor lit up 
with the magic word READY. My heart began to flutter and I 
felt a barely perceptible, but warm glow spreading through 
my body. My eyes began devouring the instruction manual 
as my fingers (two of them, anyway) flew about the 
keyboard. The minutes grew into hours, and the programs 
grew longer as the manual demonstrated more and more 
complicated, ingenious ways to get the video monitor to 
display, HELLO, MY NAME IS TRASH 50H. 

Suddenly, in the middle of a medium-sized program, the 
keyboard ceased to respond and the screen lit up with, 
OM ERROR. I feverishly searched the manual and found 
that TRASH 50H Level 1.1 BASIC has three error 
messages: 

WHAT— meaning I don't know how to do it. 



30 • 80 Microcomputing, April 1980 



'TRASH 50H is a trademark of Trendy Corp, 



has determined computers can be hazardous to your health. 

from a Computer Derelict 



HOW— meaning I don't know what you want. 

OM — meaning you are out of memory. 

Abruptly the warm glow in my body was displaced by a 
slight ache in my bones. Well, after hunching over that 
keyboard until 3:30 AM, aches were to be expected, so I 
took myself to bed, my head still reeling. 

Early the next morning I found myself, computer tucked 
under my arm. hurrying over to Video Nook. On the way I 
passed a group of young people in Buddhist robes with 
shaven heads chanting, "OM . . . OM . . . ." 

"I guess I'm not the only one," I thought as I entered 
Video Nook. 

Murray was nowhere in sight. Another customer was 
poring over a maze of bubble-packs hanging from the 
pegboard walls. His eyes had a glassy look. I was about to 
ask him if he knew where Murray was, when an arm 
snaked out from behind a pile of speakers and grabbed 
me. 

It was Murray. 

"Don't mess with him, kid! 
He's into the hard stuff!" 

"You mean . . . ?" 

"Yeah," he said 
gravely, "hardware!" 

"Listen, Murray, 
I can't get this thing 
to do anything but 
tell me its name and, 
on top of that, I'm out 
of memory." 




His hand pensively rubbed his chin as he said, almost 
to himself, "Out of memory already. I didn't think it would 
happen this fast." 

"Look, kid, you can't expect these basic packages to do 
everything. If you want your TRASH 50H to do more, you'll 
have to go for the 16K RAM and Level 2.1 BASIC. It's 
onlyfourhundreddollarswetakemastercharge." 

"Four hundred bucks!" I shouted. "But the whole 
computer with video and tape was only five hundred!" 

"Look, kid," he said apologetically, "we can't sell 
everything as a loss leader. We've got to make it up 
somewhere. After all, we have expenses— rent, payroll, my 
mother-in-law needs an operation." 

"Okay, okay," I said with anger and defeat in my voice, 
reaching once again for my wallet and the plastic therein. 

For, in truth, I no longercared 
about the money. I wanted 
onlytogetbacktothat 
computer and revive the 
warm glow I had felt the 
previous night. 

My Gizzard Is Nibbled 

And so, nightfall upon 

nightfall found me 

in my basement 

inaclandestine 

rendezvous with my 

computer. And every 

night, as the cool 
glow of the 
CRT arose, the 
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warmth suffused my body in greater and more 
intoxicating magnitudes. Thie pupils of my eyes 
diminished to ever smaller pinpoints of rapt concentration 
on the video display. 

Then, one night, I vifas loading a cassette of the Russian 
revolution game, TSAR-GONE. The tape had run most of 
its 15-mJnute load when my TRASH 50H locked up with a 
checksum error. A chill began to crawl up my backbone. I 
readjusted the cassette recorder volume, reset, rewound 
and reloaded. Again, the tape bombed at the end of its 
seemingly endless load. This time the chill began to 
nibble at my gizzard. 

Again and again, with increasing frenzy and impatience 
I punched reset buttons, twiddled volume dials and waited 
agonizing minutes, only to see the blinking asterisk 
replaced with that devil's own C, My eyes commenced lo 
water; my nose ran; my brain pounded; my stomach 
churned itself into little knots. 

The next morning, heavily dosed with Gelusil, I dragged 
my aching body back to Video Nook. 

"Murray, Murray, ya gotta help me." And I related the 
horrible events of the night before. 

He rubbed his hands together and his lips curled into a 
sneer. 

"Oh, I can solve your problem," he said, "if you're ready 
for it." 

"How, Murray, how?" 

"Disk!" he said, 

"But, Murray," I protested, visions of winged dollars 
dancing through my brain, "that's a thousand dollars, 
between the disk drive and the expensive interface." 




'A trademark of Trendy Corp 



"That's Expansive Interface,'" he corrected. 

"Yeah, well, anyway, that's more than I've got in the 
whole rig so far." 

"Look, kid," he said coldly, "pay it to me or spend it on 
Gelusil. It's your choice." 

That was the big turning point for me. My brain cried, 
"Walk out!" but I was too weak to resist and once again 
my plastic hit the counter. 

Soon I was back at my accustomed place, disks madly 
spinning, aches gone, replaced by an ever-increasing 
euphoria. 

My days were spent dreaming about the mysteries of 
assembly language, and every night until the wee hours 1 
sat before my TRASH 50H transfixed, like a butterfly 
impaled on a collector's board. 

My appearance began to suffer noticeably. My eyes 
grew baggy and my pupils contracted from lack of sleep. 
Of course, I was always waking up late for work, so I 
threw on yesterday's clothes and didn't have time to 
shave. The neighbors began to whisper, and during TV 
commercial breaks my wife began to notice that i wasn't 
around. 

Screaming, Kicking and Scratching 

One day my boss called me in. 
"Son, is there something wrong at home?" 
"No, no!" I said too hastily. "Everything's fine! Just 
fine!" 

"Well," he said, "I can't help noticing such a marked 
change in you in such a short period of time. I know this 
may sound silly, but you remind me of a fellow I once 

knew who got involved 
with . . ." he shuddered, 
"computers." 

Of course, I denied it and 
feigned offense at such a 
comparison. My boss was a 
kindly man, but a stern 
moralist with an abiding 
hatred for transistors. 

One day found me back 
in Video Nook, A fellow 
computerist was standing 
in front of the store's 
display model, angrily 
punching at the keyboard. 
Suddenly he threw himself 
on the floor, screaming, 
kicking his feet and 
scratching at his head. 

"Murray," I shouted, 
"what's happening to 
him?" 

"He's seeing bugs." 

"Bugs?" I said, with awe. 

"Yeah, one of his 
programs keeps bombing 
and he can't find the bugs. 
Don't mind him, it happens 
all the time. What can I do 
for you?" 

"Murray," I said 
sheepishly, "I need another 
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At Last! Affordable 

WORD PROCESSING 

Made Possible by TRS-80® 



NEW.SCRIPSIT'^i^^ 
Word Processing 
Software for 16K 
Level II TRS-80S. 

*69^' Cassette* 

*99^^ Disk- 



NEW UPPER 
AND LOWER 
CASE KIT. 
Available for 
new or exist- 
ing systems. 

^99 Installed* 




EDIT, DELETE, MODIFY — 
then print it error-free, 45 
characters per second! 



NEW TRS-eO DAISY 
WHEEL PRINTER. 
Clean and readable 
printing, like the very 
finest electric type- 
writers. 

*2999* 



i^m^»^s,^s^^l^^ 



RADIO SHACK BRINGS 
YOU A COMPLETE WORD 
PROCESSING SYSTEM FOR 
TRS-80 MODEL I COMPUTERS. 

Radio Shack smashes another 
computer "cost barrier" with the 
new TRS-80 Word Processing 
System. The system includes our 
new SCRIPSIT software, Upper/ 
Lower Case Kit and Daisy Wheel 
Printer. Add it to any 16K Level II 
TRS-80, or buy a complete sys- 
tem. Once you've tried it, you may 
never want to use a typewriter 
again! 

The new SCRIPSIT software 
lets you compose letters and doc- 
uments of all types on TRS-80's 
screen in upper case, or upper 
and lower case with the new Up- 
per/Lower Case Kit. You can 
move words or entire paragraphs, 
insert, delete and edit to your 
heart's content! SCRIPSIT gives 
you automatic page numbers, 
page headings and footnotes and 
makes it easy to indent para- 
graphs, change line widths, and 
center your text horizontally or 



vertically. Advanced features in- 
clude justification, hyphenation, 
global search/replace, and vari- 
able screen width. On-going re- 
ports, form letters and text with 
print commands can be stored on 
TRS-80 cassettes or diskettes for 
use or revision at any time. 




SCRIPSIT software Includes an audio 
cassette course that makes anyone a 
proficient word processing operator. 



PRINT ALL OF THE 
"ORIGINALS" YOU NEED, 
FAST AND ERROR-FREE! 

Our new WP-50 Daisy Wheel 
Printer is fast and gives ycj the 
same quality of the finest electric 
typewriters ^ carbon film ribbon 
and all! Or, if your job doesn't 
require "letter" quality, a TRS-80 



system with a dot matrix, u/lc 
printer costs even less. 

A complete TRS-80 cassette 
system with Word Processing 
Software, Upper/Lower Case Kit 
and a dot matrix printer is yours for 
just $2,046.95* Or choose a really 
deluxe system with the WP-50 
Printer and two floppy disks that 
store eight hours of 50 WPf\/l typ- 
ing for only $5,492.95* 

Sound exciting? You bet it is! 
Visit your nearest Radio Shack 
outlet or write for details. 

^Retail puces may vary at individual stores and dealers. 



Mail to: Radio Shack, Dept. CMA-460 
1300 One Tandy Center 
Fort Worth, Texas 76102 

I'd Like to Know More! 

U Send details on TRS-60 Word Processing 
and the 24-page TRS-80 Catalog #RSC-3. 

U Have a representative contact me. 
NAME _^ _^^^_^_^_ 



Radio /haek 

The biggest name in little computers*^^ 

A DIVISION OF TANDY CORPORATION ■ FORT WORTH, TEXAS 76102 



v-5 



ADDRESS 

CITY 

STATE 



ZIP 



I Own/Use a TRS-80 
Model 



Yes D No 



f^ Reader Service — seepage 147 
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keyboard debounce tape." 

"t just gave you a KBFIX cassette last week." 

"I know, Murray, but my wife didn't know what it was 
and used it to record a Perry Come special." 

"Look, fellah, they only send us one FIX per user. You'll 
have to send a buck to customer service in Texas." 

"But, Murray, I need it now. I'm really in a bad way. I'm 
seeing everything double all the time. Besides, I don't 
have a buck left, after buying all of those game 
programs." 



... I forced my Hife to . . . 
throw Tupperware parties 
to pay for a modem and 
an RS232 board." 



"So!" he said, a mean and crafty look coming into his 
eyes. "When you need more RAM you send away for that 
junky mail-order memory from California Digitalis, but 
when you need a free FIX, all of a sudden you remember 
your old friend Murray." 

"Murray, it wasn't me. It was those guys in my users 
group. They made me do it. They told me I was a sucker to 
buy memory at Video Nook. It'll never happen again, I 
swear!" 

"Sorry, kid, no dice. No memory. No FIX. You'll have to 
write to customer service," 

"But Murray, that might take weeks! I don't think I can 
hold out that long." 

All of a sudden a serious and almost compassionate 
look came upon his face as he looked deep into my eyes. 

"Listen, kid," he said, "you are in a bad way. You're 
really hooked." 

"Nah, not me, Murray. I'm still just playing with the 
stuff." 



"Seriously, kid, you are! Look, I'll help you out," he said, 
propelling me gently toward the door. "Here's a bottle of 
tape head cleaner. Try to take it easy. And keep your 
keyboard clean for the next couple of weeks. Just 
remember who your real friends are when you need a 
printer." 

As Murray locked the door behind me and turned on his 
Video Nook burglar alarm, I realized he was right, 

I WAS A FULL-FLEDGED USER! 

ftfly Dog Wears a Tattered Sweater 

Things went downhill rapidly from there. My boss found 
out about my computer habit and fired me. I spent the 
mortgage money on a printer and squandered on 
software, tha money we were saving to replace our poor 
dog's tattered sweater . 

My credit reached zero, I even bounced a check on 
World Power Systems. I guess I reached the height of 
degradation when I forced my wife to go out in the streets 
and throw Tupperware parties to pay for a modem and an 
RS232 board. 

Finally, the bottom dropped out. My wife fell in love with 
her Tupperware distributor and walked out on me. The 
bank started foreclosure proceedings on the house. My 
neighbors shunned me while their children jeered and 
threw overripe kumquats at me as I passed by. 

All would have been lost, had not one of our fellow 
members in Computers Anonymous-heard about my plight 
and come to help me in my hour of need. How my heart 
bursts with gratitude for so many of you, here tonight, 
who came and gave me comfort as I went through the 
agonies of IC withdrawal. And how can I ever thank those 
of you who put up with my midnight phone calls when 
those urges to disassemble began to overwhelm me. 

But, brothers and sisters, ashamed as i am to admit it, I 
need your help now more than ever before. 

For this very day I received a call from Murray to come 
down to Video Nook and look at the new TRASH 50H . . . 
MODEL II. ■ 

Tfiis arlicle was written using the Bionic Ballpoint Word Processing Sysiein 



WHY LOWERCASE? 



You ov<'t rf>PrKi>W A*t how tCCtSSfKY dualcwt if on Iter 
T»s-ee LTtiil M/v* tMn It. Oroi toj i« dutlcaw Itou'tl ntvr- 
tfw^1 -to 9o bac* to LmUCAEf only aSiin. In fact, tet/fl uDn*r 
•VM itou Mra9«4 without it for lo lon0. 

T»w ch«rKt«r 9w^<rgtor in tor TRS-fit tiXSSli t»nt«inc «• 
rollDuinSt STMt chirictartr ru*t>V fPicial liMol*' PUB both 
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tt» Ch«r»ct«r Gtntrator IC. Ut -ill offif on» to oir cKtowr* 



WouUn'tyou like accsn to YOUR Mtiratypnet? Level II Basic 
convarti lowsmse command words into UPPERCASE. All 
chanctm contained betwoen quotas remain as typed, but the 
aoftwara in an unconverted TRS-80 allDws UPPERCASE display 
onlyl This software shortcut allowed Tandy to omit one video 
mamory chip. This chip must be added and the video software 
repaired before the display of dualcase is possible. 



Unfortunately, 

converting your TRS-BO requires installing the video memory chip phis wiring channel. There is 
only one modification on the market which eliminates most (rf the wiring. To get the duelcHe mod 
installed you have three choices: 1) Send your computer to e compeny or indiwduel nho flriN de the 
wiring, 2) do it yourself, or 3) "THE PATCH"(trede mark). 

To make choices 1 & 2 operate requires using software overheed in the form of a "driver". TTw 
takes 30 bytes, unless you want a "normal" shift to UPPERCASE keyfaoerd. Thet takes upwerds of 
60 more bytu. Softwara oriented mods have thru more disadvantages: 1) They reside in progrem 
memory, eeting program space which you could be using, 2) other mechine lenguege progrems ere 
unusable if they ere loaded against the top of memory, or 3) the "drivr" sofbivere Ml^ be loeded 
every time you power-up, or the "MEMORY SIZE?" eppeare due to progrem bomb. Choice 
number three suffers from NONE of the softwara overtwad problems. We call it "THE PATCH" 
and it's new for the 80'sl 

"THE PATCH", a small electronic module which plugs into the unused ROM socket on Level II 
machines, makes necessary software changes to ROM supporting lowercesa, an optional block 
cursor, & extra keyboard debounce. Electronically means NO softaare overheed. Your computer 
displays lowercase instantiy upon power-up, end the keyboard operetes in "normal" typewriler 
fashion. 

"THE PATCH" is completely compatibia widi your TRS-8fl since it is dn first end only, TRS4I 
lowercase system designed that flawlessly mates with the computer es a unit, not just a apeciet 
program package. 

"THE PATCH" is also the only modification of any kind wNch can hove extra options and updates 
factory installed for 5 to 10 dollars per option, as tiiey are available. Seme dey tiimaround. 

Order yours today to avoid extra delay. Send $59.97 + 2.50 for S&H to: CECDAT "THE 
Rt^TCH" / Box 8963 / Moscow, ID B3&43. 
IHE PATCH is a Trademark of CECDAT, Inc. ^195 i^fi^i mm* 
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OlOT, now you've had a chance lo see what I have in mind for you wrih 80 HICR0C0HPUT1N6. 
Oh, I admit that we're just getting started and thai the magaiine will be improving a lot as we go 
along. We have some itileresting ideas in the works for you. 

With the IRS-SO (or 90 . . . etc.) being the most popular microcomputer in the entire world, you 
are going to benefit Irom thii in many ways. Ihe more compulers there are oul there of one 
tiind ... the more good programs you are going to have for this system. I hope that is obvious. 
hu may be sure that SO HICROCOMPUIING will be packed with the shorter programs and 
reviews ol the larger ones. You can waste an awfui lot of money on stuff that looks great in the 
ads, but fiziles out when you try to use it. You need our reviews. 

Ihe wealth of programs will also mean that there will be much belter programs for the IRS-80 
than any other system. Put yourself in the seal of a computer programmer and you'll understand 
this, li you are going to spend several months developing a comprehensive program, and it takes 
all of that to write and debug a big program, would you write it for a system which has sold one 
hundred units or one which has sold over 300,000 systems! Ihe answer is obvious ... and this is 
why we are already seeing programs coming out for the "SO" which are far heffei than ar^ything 
tor any other system on the market. Ihis is tough lor other systems ... the law of the computer 
jungle. 

Between our connections with Instant Software, the largest publisher of microcomputer pro- 
grams in the world, and Kilobaud MICROCOMPUIIHG, you know that 80 MICROCOMPUTING is 
going to be your most important link with software for the TRS-SO. 

With Instant Software being sold and promoted in every country in the world where the TGSSO 
is being sold, our input ol programs is also the best in the world. We get programs submitted 
from everywhere . . . often from 50 lo 100 a week! You'll gel the cream of the (rop eilher 
published at reviewed in "80". 

If coupon betow has been used, please fill out 
subscription form on the reader service card in the back 
of ttie magazine. ^^^ ^^^ m^^ ^^" ^ 



HARDWARE TOO 

Wit same law oi the computer jungle holds for hardware. Would you, as a manufacturer, 
market an accessory for a system which has sold 100 units or would you go first for the one 
which has sold hundreds of thousands. It is, as with software, self-evident why the great bulk oi 
Hie hardware accessories lor computers are for the TRS-80 these days. 

80 MICROCOMPUTING has the advantage of the use of the largest and most complete 
microcomputer lab in the world ... the one developed lor Instant Software and Kilobaud 
M1CR0COI4PUIIHG. This means that most new pieces of equipment are tested and in use by our 
staff ... and this means that we can tell you what we think is outstanding ... and where we find 
ripoffs. Ihis lab is important to you. 

SUBSCRIBE 

II you are not already a subscriber to SO MICROCOMPUTING, please get signed up right now. 
The yearly rales are S15, and that is a bargain. Just one single program of use to you can be 
worth much more than that. One review of an accessory could save you many times that much in- 
vesfmenl. I would appreciate it if you would appoint yourself a committee of one to get more 
subscribers for Ihe magazine. You will benefit even more than we do here at the magaiine . . . 
because the more readers we have, the more ads we will he able to attract ... and the more ads, 
the more pages of articles you will get every monlh. 

The "80" market can, I think, support a couple of hundred pages of ads . . . and that would 
mean a magaiine of nearly 500 pages a month. That should hold you. You may not have time lelt 
to use your computer. 

EPHCYCLOPEDIA 

If you've read Kilobaud MICROCOMPUTING, you know that I try hard not to duplicate pub- 
lished material. My concept is that every reader should save every issue (we seJt inexpensive 
botes for this so they can sit on your library shelf) and treat the magazine as a continuing en- 
cyclopedia ol computing. I make sure that much of the material in each issue is written in simple 
language so it will be understandable by even the rawest newcomer to computers. Oh, I have ar- 
ticles lor the more advanced users too, so you'll have something to look back over later and use 
as your understanding ol your system grows. 

Try to think of 80 MICROCOMPUTING as more ol a large club newsletter than an ivory tower 
high-level publication. I'll leave Ihe pomp lo other publishers ... the ones with the weti-deserved 
inferiority complexes who cater to their inadequacies by publishing esoteric baloney. This 
magazine is written by Ihe readers and edited by people whose aim is to help you enjoy your 
TRS-80. 

SAVE 

With each issue costing M at your computer store, that's S24 a year. For 115 a year you can 
subscribe ... at least for now. As the magazine eipands, please do not be surprised if the cover 
price increases, along with Ihe subscription price. I started 73 Magazine for radio amateurs twen- 
ty years ago with a cover price of 37C (two for 73C) and it is up to 12.50 a copy now (and it is 
the largest of the ham magazines). 

For you bargain hunters ... and those who find that one year goes by all too rapidly, the Ihree 
year rate for "80" is 136. This, too, will be going up . . . reflecting the inflation, paper increases, 
postage increases, and a short vacation for me in Hong Kong next year. Someone has lo pay for 
that. 
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More for Less. 

Speed. Capacity. Price. 



The Vista V-80 mini disi< system 
is 8 times faster than the 
TRS-80, 23% more 
storage capacity and 
costs oniy $395. 

Compare our performance to 
Radio Shack's TRS-80* Theri 
match our price with theirs. Then 
decide which one is for you. ■ 

Features 

• Vista offers 102K bytes to 
Radio Shack's 89K. That's 13K 
more bytes per drive for Vista. 

• The V-80 operates at 12ms versus 40ms 
for TRS-80, Our drive can operate at 5ms, but 
only 50% of TRS-80 will operate at that speed; 
therefore, Vista has purposely set the access time 
at 12ms. 

• Totally compatible with all available disk operating 
systems. 

• Upgraded system. Increased storage and speed 
patch supplied at no charge by Vista. 

• Drives are interchangeable for any location from 
Drive 0— thru Drive 3. 

• Immediate Delivery 

• 120 Day Warranty 

Prices: 

Single Drive System $395 

Two Dnve System $770 

Four Drive System $1450 

*TRS-80 IS a registered ifadeinark of Radio Shack, a Tandy Company 
TYPICAL CONFIGURATION 




^2 



Vista Expansion Module 

The expansion Module provides a double density modification 
to your current Radio Shack interface that allows you to format 
diskettes in either single or double density In double density 
format, your Vista Drive increases your storage capacity up to 
204K bytes on a single 40-track drive. 

To insure the highest performance possible, without com- 
promise, we recommend that you use Vista disk drives in con- 
junction with our Expansion Module.* For a demonstration on 
your system call TOLL-FREE 800-854-8017 

PriC6 $239.00 (includes all hardware and software) 

*Vista cannot guarantee Radio Shack drives to operate 100% in double 
density. 



The Vista Computer Company 1401 Borchard Street • Santa Ana, California 92705 • 714/953-0523 




Single Density Configuration (102K Bytes) 
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Bigger Is Better. 

Expandable storage. Greater Versatility. 



.*.»' 



The Vista Model II* Disk Expansion 
System provides one, two or 
three drives, and adds ^^** 
up to 1.5 million bytes .. 
of storage. 
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You say you want more disk stor- 
age, more programming versatil- 
ity ... at a reasonable price. Say no 
more. Our Vista Model II Disk Ex- 
pansion System may be just the an- 
swer for you. Choose from 1 , 2 or 3 
drives, already mounted. Each ad- 
ditional disk drive will add about 
1.5 million bytes of on-line stor- 
age to your system. Buy only 
what you need now. As your 
needs grow, you can continue to 
expand your capacity by adding 
another drive. It's that simple. 

But the best part we've saved for 
last. The price. It's cheaper than 
Radio Shack, yet our Model II will do 
everything Radio Shack's expan- 
sion system can do. The only differ- 
ence is our Model II will keep on working long 
after most others have stopped. That's why we are justifiably 
proud of our product's high reliability. And our 120-day warranty. Actually, it's 
not hard to stand behind a product — that works — if you know what we mean. 

'Model II is a registered trademark ot Radio Shack, a Tandy Corporation. 
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COMPARE OUR INTRODUCTORY LOW PRICES 

1-drive Expansion System $1,000 3-drive Expansion System $2,100 

2-drive Expansion System $1 ,550 Additional Drives Only $ 525 

NO WAITING • IMMEDIATE DELIVERY. 
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OPTIONAL 

COMPANY AFFILIATION 



PLEASE CHARGE MY CREDIT CARD: 

D MASTER CHARGE D BANK AMERICARD VISA 

CARD NO. _ ,__ 

EXPIRATION DATE 
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OF CARD HOLDER 



Item 



Quantity 
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SIGNATURE 
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Calif. Res. add 6% sales tax 

Per-Unit Stiipping and Handling 

($5,00 UPS - $7.50 UPS Blue) 
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The Vista Computer Company 1401 Borchard Street •Santa Ana, California 92705 •714/953-0523 ^^65 



1^ Reader Service— see page U7 
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HARDWARE 



Why bother with the keyboard, 
when you can use a magic wand. 



Build a Light Pen 



Wayne Holder 
2765 Reynard Way 
San Diego. CA 92103 



magine the magic effect of 
I moving chess pieces around 



your screen with the stroke of a 
light pen. 

What is a iight pen? it is a 
wand that guides and instructs 
your TRS-80 computer. 

To be more technical, the pen 
is a light sensing peripheral that 
plugs into the cassette jaci^ on 
the keyboard or expansion chas- 
sis, allowing you to select 
things on the video screen by 
pointing at them. 

A light pen lets your computer 
see where you are pointing. 

The pen has thousands of 
uses. Use it for computer games 
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Fig. 1. Light Pen Schematic. 
38 • 80 Microcomputing, April 1980 



or to draw pictures on the 
screen. 

Let it answer the questions in 
a quiz, act as a futuristic control 
panel for an automated house or 
for menu selection in business 
applications. 

How It Works 

The schematic diagram of the 
light pen is shown in Fig. 1. Its 
heart is photodetector PQ1 . PQl 
is a VTA-1011 photoDarlington 
which conducts more current 
when illuminated. Transistors 
01 and Q2, resistors R1, R2and 
R3, and capacitors CI and C2 
compose a bias source for the 
phototransistor. 

This is the kind of voltage reg- 
ulator, except that it tracks only 
slow changes in current. Quick 
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pulses of light cause a change 
in the Voltage across the photo- 
transistor, whereas slow 
changes in light do not. This 
allows the circuit to adapt to dif- 
ferent ambient light conditions. 

The a.c. signal that crosses 
the phototransistor in response 
to quick changes in light, is 
coupled through capacitor C3 
and is amplified by transistor 
Q3. The amplified signal is 
passed into the TRS-80 circuitry 
where it simulates a cassette in- 
put signal. 

It is fortuitous that the com- 
puter's input circuit also serves 
as a light pen input circuit. I 
won't go into how the TRS-80 cir- 
cuitry works, but if you are in- 
terested, I suggest you read the 
TRS-80 technical manual. 



T T 

620 .620 
1 1 



END CAP (2 REQUIRED) ALUMINUM HOUSING 

ALL DIMENSIONS IN INCHES 



Fig. 2. Aluminum Housing. 









Photo 2. Assembled Circuit Card and Housing. 



Photo 1. Assembled Light Pen. 



Construction Details 

A parts kit for the light pen is 
available that makes building 
one much simpler. A printed cir- 
cuit board is provided that con- 
siderably reduces the amount of 
wiring. A specially designed 
housing, consisting of an alumi- 
num body and machined DEL- 
R!N plastic end caps, is also in- 
. eluded with the kit. 

Photo 1 shows the completed 
light pen constructed from the 
kit. 

Homebrewers can build the 
light pen into the body of an old 
felt tip marker or similar hous- 
ing. You can wire the circuit on 
perfboard or similar material. 
My prototype was constructed 
in this fashion. If you are skilled 
with machine tools you may 
elect to duplicate the kit-sup- 
plied housing yourself. 

Fig. 2 shows the parts out- 
lines and dimensions for the 
body and end caps, DELRIN 
plastic is recommended for 
machining the end caps, be- 
cause it is easily worked on a 
lathe without shattering or chip- 
ping. Fig. 3 shows the foil pat- 
tern and outline for constructing 
the printed circuit card. 

Fig. 4 shows the component 
placement on the circuit card. I 
recommend using a bending 



guide to prebend the resistor 
and capacitor leads before in- 
serting them into the circuit 
card. 

The three 2N3906 transistors 
are mounted flat against the cir- 
cuit card so that the completed 
assembly will fit into the tubular 
housing with plenty of clear- 
ance. The three transistors are 
mounted such that the rounded 
side of the case presses against 
the circuit card and the flat side 
faces up. 

Bend the leads at a 90 degree 
angle and insert them into the 
card. Notice that the pattern of 
holes is different for Q3. Photo 2 
shows the assembled circuit 
card. 

Capacitors C1 and C2 are ax- 
ial lead, ceramic chip type. They 
were selected specifically for 
their small size, but any ,1 uF 
nonpolarized capacitor with at 
least a 25 volt rating may be 
used. 

The same thing applies to ca- 
pacitor C3, which is a miniature 
tantalum type. 

All resistors are % Watt com- 
position or film types with a 
value tolerance of five percent. 

Mounting Photodetector 

Mounting photodetector PQ1 
is very important. Cut off the 
base lead {the center one) and 



bend the emitter and collector 
leads to the length specified in 
the placement diagram. 

The leads should bend in the 
direction of the now-removed 
base lead. The emitter lead (the 
one nearest the tab) connects to 
the Y pad and the collector lead 
connects to the X pad of the cir- 
cuit card. 

Insert all of the components 
into the circuit card. Be careful 
to check that they are all flat 
against the surface, so that the 
card will fit into the housing. 
Then solder them into place. 

Use a good grade rosin core 
solder, and be careful not to ex- 
cessively overheat any of the 
components. Trim the leads as 
close to the circuit card as 
possible to prevent them from 
shorting to the aluminum hous- 
ing. 

Check the position of the 
phototransistor by inserting the 
P.O. assembly into one of the 
end caps. If you have measured 
correctly, the narrow end of the 
card would fit into the end cap 
all the way. The end of the 
phototransistor should be re- 
cessed from the other end about 
74 of an inch. 

Next, wire the connector to 
the cable and battery clip, using 
Fig. 5 as a guide, if you are using 



the cable supplied in the kit of 
parts, twist together the cable 
shield, the brown wire in the ca- 
ble and the black wire from the 
battery clip. Solder them to pin 2 
of the connector. 

Twist together the white wire 
from the cable and the red wire 
from the battery clip. Solder 
them, and insulate the soldered 
joint with tape or heat shrink 
tubing. 

Solder the green wire from the 
cable to pin 4 of the connector. 
Assemble the connector, being 
careful to crimp the cable and 
battery clip wires into the strain 
relief tabs. 

Slip the other end of the cable 
through one of the end caps. 
Pull about four inches through 
and fasten a nylon ty-wrap 
around the cable near the end 
cap. The ty-wrap will prevent the 
cable from pulling out of the end 
cap once the pen is assembled. 

Strip the Insulation from the 
cable and trim the wires so that 
they measure about two inches 
from the end of the end cap. 
Solder the white wire to point 
"A" on the circuit card (Fig. 4). 
Solder the green wire to point 
"B" and the brown wire to point 
"C." Trim off the excess wire 
after soldering. 

At this point your light pen is 
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Fig. 5. Plug/Cable Wiring. 

almost ready to operate. Before 
final assembly test it by plug- 
ging It into the keyboard, con- 
necting a battery and running 
ttie program shown in Listing 1. 

I advise, however, that you 
first read the section on pro- 
gramming. 

When you are satisfied that 
your light pen is working cor- 
rectly, assemble It Intothe hous- 
ing, using epoxy cement to fas- 
ten the end caps into the alumi- 
num tube. 

Programming 

The pen is a device that can 
sense light coming from the vid- 
eo monitor. Software Is used to 
distinguish exactly where the 
light pen is pointing, but the 
software must be accurate. 
Let's take a look at exactly what 
Is Involved In programming a 
light pen. 



When we look at the screen of 
the video monitor, we see con- 
tinuous light. Those of us who 
are savvy about how television 
works know that the light is not 
really continuous. 

Television creates Images by 
scanning a point of light across 
the television screen. This point 
of light scans so rapidly that to 
our human eyes it appears to be 
everywhere at once. 

The photosensor of the light 
pen, however, is not so easily 
fooled. It sees a pulse of light 
every time the point scans past 
wherever the light pen is point- 
ing. 

The video monitor Is designed 
to scan from the top to the bot- 
tom of the screen 60 times a sec- 
ond or once every 1/60 of a sec- 
ond. This means the light pen 
sees60 pulses of light every sec- 
ond whenever the light pen is 
pointed at an Illuminated area 
on the screen. 

The light pen converts these 
light pulses into electrical 
pulses. The electrical pulses are 
fed into the TRS-80's cassette 
input latch. A latch is a device 
that stores information. It has 
two states: SET (on) or RESET 
(off). 

The TRS-80 Is able to RESET 
the latch, while the light pen can 
SET it. 



10 


CLS 


20 


SET {64, 24) SET (65. 24 I 


30 


OUT 255,0 


40 


FDR X=0 TO 6 NEXT X 


50 


IF <INP(255) AND 12B)=0 GOTO 70 


60 


PRINT e 0, "ON ", GOTO 30 


70 


PRINT e 0, "0FF">: GOTO 30 




Program Listing 1. 




9000 OUT 255, , / 




901O FDR Z=0 TO h. NEXT 2 




9020 LP=!INP(255) ftND 12S) 




9030 RETURN 




Program Listing 2. 


10 


CLS 


20 


PRINT a 384, ■'• <- TOUCH HERE" 


30 


SOSUB 9000 


40 


IF LP=0 GOTO 30 


50 


CNT=2 


60 


PRINT e 384, " "; 


70 


QtiSUB 9000 


80 


PRINT ff 384, ■'»■'! 


90 


IF LPOO GOTO 30 


100 GOsUn 9000 


110 IF LP=0 GOTO 30 


120 CNT=CNT-1 


130 IF CNTOO GOTO 60 


140 CLS 


150 PRINT "DON'T YOU TOUCH ME'' 


160 STOP 




Program Listing 3. 



In addition, the TRS-80 can 
determine the state of the latch 
at any time. The light pen SETS 
the latch every time it senses a 
pulse of light from the video 
monitor. Once the latch is SET, 
it stays in that state until it is 
RESET by the TRS-80. Therefore, 
to detect whether or not the light 
pen is "looking" at light, we need 
only to RESET the latch, wait at 
least 1/60 of a second, and then 
check the latch to see if It Is 
SET. 

BASIC program 1 clears the 
screen (statement 10) and puts a 
spot of light in the center of the 
screen (20). Statement 30 RE- 
SETS the latch. (Read the 
TRS-80 technical manual for 
more details. 

Statement 40 delays execu- 
tion for about 1/60 of a second. 
Statement 50 reads the state of 
the latch and decides which 
message (ON or OFF) to print. 

Type in the program, connect 
the light pen and run It. You will 
find that pointing the light pen 
at the spot of light displays the 
ON message in the upper left 
corner of the screen; otherwise 
the OFF message will shovi/. 

Now look at the subroutine 
shown in Program Listing 2. This 
subroutine does all the work of 
testing to see if the light pen is 
looking at light. If a program per- 
forms a GOSUB 9000 upon re- 
turn, the variable LP will be set 
to if the light pen is looking at 
darkness or 128 If the pen sees 
light. We will make use of this 
basic subroutine in developing 
more sophisticated programs. 

Some Programming Examples 

Naturally, the software must 
do more than simply determine 
if the light pen sees light. The 
pen could easily pick up a stray 
pulse of light from a light fixture, 
or by being pointed at a line of 
text. Good software must, there- 
fore, Include checks to verify 
where the light pen is actually 
being pointed. Enter the BASIC 
program shown In Listing 3 and 
try it. 

This program expects you to 
point the light pen at the "*" 
displayed on the screen. The 
program calls subroutine 9000 
and tests the returned value In 
variable LP, in order to wait until 
the light pen senses light (state- 



ments 30 and 40). 

The program then tries turn- 
ing the "•" on and off several 
times and calls 9000 each time. 
The program is checking to see 
if the light pen sees light with 
the "*" on, and, also, if it sees no 
light with the '""' off. The pro- 
gram does not decide that the 
light pen is looking at the "*" un- 
til It can successfully repeat this 
test several times. 

This double checking is very 
Important for proper operation 
of any light pen program. 

Now let's look at another light 
pen application called Menu Se- 
lection. Most of us have used 
programs that required us to 
choose among various options. 
The game Star Trek, popular in 
most computer circles, Is an ex- 
ample. 

To play the game the player is 
usually requested to "TYPE 1 TO 
FIRE PHASORS, TYPE 2 TO 
FIRE PHOTON TORPEDOES, 
TYPE 3 TO SCAN QUADRANT 
FOR LIFE" etc. Wouldn't it be 
great if your computer had 
separate keys labeled with each 
option? You can use the light 
pen in this application. 

Consider if the screen 
showed something like this: 

• FIRE PHOTON TORPEDOES 
' FIRE PHASORS 

■ SCAN FOR LIFE IN 
QUADRANT 

■ SURRENDER 

You could play the game by 
touching the light pen to the "*" 
next to the appropriate com- 
mand. Perhaps certain com- 
mands would call up other 
Menus of commands for us to 
select from. 

Imaginary Restaurant 

We don't have space here to 
present a complete Star Trek 
program, but try the program 
shown in Listing 4. The program 
is called "Imaginary Restau- 
rant," and you use the light pen 
to select what you would like to 
eat from the bill of fare. 

Statements 5 through 40 re- 
serve string space and dimen- 
sion the arrays A$ and B. Array B 
Is then initialized to the values 
192, 320 and 448 which corre- 
spond to areas on the screen 
that will be changed with the 
PRINT @ command. 
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statements 100 through 110 
read the contents of the DATA 
statements into array A$. The ar- 
ray is initialized to contain 
messages that the program wiii 
display. A$ is a two-dimensional 
array organized so that the mes- 
sages are put into groups of 
four. Each group corresponds to 
the X dimension of the array and 
the particular message in a 
group corresponds to the Y. 

Statement 120 selects the 
first group by setting X = 0. 

Statements 200 through 240 
display a group of messages on 
the screen. Message 0, (Y = 0) of 
each group, is displayed as a 
prompting message at the top 
of the screen. Messages 1-3 are 
displayed as choices with a tar- 
get spot preceding each one. 
The first group of messages ap- 
pears as follows. 

WELCOME TO THE IMAGINARY 
RESTAURANT -PLEASE SELECT 

' BREAKFAST 

* LUNCH 

* DINNER 

The program expects the user 
to select one of the three 
choices it offers by pointing to 
the associated spot with the 
light pen. The program waits at 
statement 300 until the pen de- 
tects light. When it's detected 
the program assumes that the 
user is pointing to one of the 
three spots. 

Statements 310 through 350 
determine which one, by turning 
off each selection. The program 
assumes the light pen will see 
darkness when it finds the cor- 
rect one. As a precaution should 
the test fail, the program will get 
to statement 360. The program 
branches to statement 400 
when it thinks it has located the 
selection. 

Statements 400 through 450 
perform a double check on this 
assumption by turning the sus- 
pect spot on and off several 
times, checking for the correct 
response. If this double check 
fails, the program branches 
back to statement 300. 

If the check passes, the pro- 
gramdisplaysanarrow<- next 
to the spot and waits for the 
light pen to see darkness. This 
means the user has lifted the 
pen from the screen. 

Statement 500 checks for fur- 



ther displayed choices. If they 
are there, the program sets X 
to the group requested and 
branches back to 200. If they are 
not, the program terminates by 
printing the final selection. 

The Magic Subroutine 

Imaginary restaurant is a 
rather specialized program, as 
you probably noticed. If light 
pen input is ever going to be 
painless, we will need to de- 
velop a subroutine to do the 
hard work for us. Before we get 
into exactly how we are going to 
write such a subroutine, let's 
define how we would like it to 
work. 

The PRINT® command in 
Level II BASIC is a very conve- 
nient way to display messages 
anywhere on the screen. Using 
this command, you can refer to 
any location on the screen by 
using a value between and 
1023. 

Imaginary restaurant made 
extensive use of the PRINT® in 
setting up the display and in 
turning the light pen targets on 
and off. Suppose we had a sub- 
routine that would accept a list 
of locations on the screen, 
where each location on the 
screen was described by a value 
from 0-1023. 

Let us further suppose that 
this subroutine would display a 
light pen target at each of these 
locations, wait for the light pen 
to touch one of them and in- 
dicate which one was touched 
by returning a value. 

This will be our magic light 
pen subroutine. Let us design 
this subroutine such that the list 
of locations is contained in an 
array called "LST", and that the 
first element of this array, 
LST(O), will contain a value in- 
dicating how many locations 
are in the list. Therefore, if we 
wish to display three targets on 
the screen at locations 120, 430, 
and 522, we would set up the ar- 
ray as follows: 

100 LST(O) = 3 

110LST{1) = 120 

120 LST|2) = 430 

130 LST(3) = 522 

We would then call our 
subroutine. (Let's assume it 
starts at line 9100.) We will 
design the subroutine to set a 



5 CLEAR 1200 

10 Din A*(4, 4), BO) 

20 B(0)=192 

30 B(l )=320 

40 B(2)=448 

99 REM o READ DATA INTO AHRAVS 

100 FOR X=0 TO 3 FDR y=0 TO 3 
no READ A*<X,V)-MEXT V, X 

120 X=0 

199 HEM • DISPLAY A SCREEN GROUP 

200 CLS 

210 PRINT A*(X,0) PRIMT PRINT 

220 FOR V=l ID 3 

230 PRINT CHH*(140),'' ".ft^lX.Y) PRINT 

240 NEXT Y 

299 REM » WAIT FOR LIGHT PEN TO SENSE LIGHT 

300 GOSUB 9000 IF LP=0 GOTO 300 

309 REM * FIND WHICH STAR WAS TOUCHED 

310 FOR W=0 TO 2 

320 PRINT e B< W) , " "f 

330 GOSUB 9000 IF LP=0 GOTO 400 

340 PRINT e B<W), CHR»(140), 

350 NEXT » 

360 GOTO 300 

399 REM " GET HERE IF PROPER ONE LOCATED, DOUBLE CHECK 

400 FDR S=0 TO 1 

410 PRINT @ Q(M>,CHR«(140>, 

420 GOSUB 9000- IF LP=0 GOTO 300 

430 PRINT e Bt W), " "i 

440 GOSUB 9000 IF LP:-128 PRINT S B ( W) , CHRS ( 1 40 ) . GOTD 30O 

450 NEXT S 

460 PRINT @ B(U), CHR«(140J, '■<=", 

470 S=0 

4BO s^s*!- GOSUB 9000 IF LP=iaa goto 470 

490 IF S < 5 GOTO 4B0 

499 REM * GET HERE IF DOUBLE CHECK PASSES 

500 IF X=0 X=W+1. GOTO 200 
510 CLS 

520 PRINT e 192, "VERY GOOD' WE AT THE IMAONAIiV" 

530 PRINT " RESTAURANT HOPE YOU ENJOY YOUR " 

540 PRINT AS( X, W+1 ) , " FOR ", A»<0, X ) 

550 PRINT PRINT PRINT 

560 PRINT "BY THE HAY YOUR CHECK TOTALS - t37 50'' 

570 FOR X=0 TO 5000 NEXT X GOTO 1 E'O 



599 REM « 

600 DATA 
610 DATA 
620 DATA 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
6B0 DATA 
690 DATA 
700 DATA 
710 DATA 
720 DATA 
730 DATA 
740 DATA 
750 DATA 

Note: ReiDE 



DATA AREA 

■WELCOME TO THE IMAGINARY RESTAURANT - PLEASE SELECT' 
■BREAKFAST" 
'LUNCH'' 
'DINNER" 

'FOR BREAKFAST WE ARE SERVING" 
'HAM, EGGS, AND SAUSAGE SPECIAL" 
'PANCAKES AND FRIED POTATOES" 
'COFFEE AND DANISH" 
'OUR LUNCH SPECIALS ARE" 
■HAMBURGER, COKE, AND FRIES" 
'RDAST BEEF SANDWICH" 

'^^ESETAHIAN SPECIAL (RICE AND BEAN CURD) 
'FOR DINNER WE ARE PLEASED TO OFFER" 
'EXPENSIWE STEAK" 
■OVERPRICED SEAFOOD" 
■ECONOMY SOUP AND SALAD" 



:lude aubi 



it 9000 



Program Listing 4. 



9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
92B0 
9^90 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
93B0 
9390 
9400 
9410 
9420 



'MAGIC LIGHT PEN SUBROUTINE 

L-LST(O) 

C*'=CHR«( 140) 

FDR 1=1 TO L 

PRINTS LET( I ),C«j 

NEXT I 

GOSUB 9000 

IF LP=0 GOTO 9160 

SCAN-1 

PRINTS LST(SCAN),^' "> 

GOSUB 9000 

IF LP=0 GOTO 9260 

PRINTS LST(SCAN),C5f 

SCAN=3CAN+1 

IF SCAN <= L GOTO 9190 

GOTO 9160 

PRINTS LST(SCAN), C5, 

GOSUB 9000 

IF LP=0 GOTO 9160 

CNT=2 

PRINTS LST(SCAN)," "i 

GOSUB 9000 

PRINTS LST(SCAN), C*i 

IF LP <> O GOTO 91S0 

GOSUB 9000 

IF LP=0 GOTO 9160 

CNT=CNT-1 

IF CNT <> O GOTO 9300 

PRINTS LST(SCAN)-2, "=>" 

PRINTS LST(SCAN) + 1, "<:=" 

GOSUB 9000 

IF LP <> O GQTO 9400 

RETURN 



DISPLAY TARGETS ON SCREEN 



WAIT FOR LIGHT INPUT FROM PEN 



DETERMINE TARGET TOUCHED 



TARGET FOUND, DOUBLE CHECK 



DISPLAY PROMPT ARROWS 



WAIT FOR PEN TO BE LIFTED 



Program Listing 5. 
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variable call "SCAN" equal to 
the list element index (in this 
case 1-3), which corresponds to 
the target location touched by 
the light pen. 

If, for example, the light pen 
had touched the target dis- 
played at location 430, then 
SCAN would equal 2 upon re- 
turning from the subroutine. 

The listing for the Magic Light 
Pen subroutine is shown In Pro- 
gram Listing 5. 

Program Listing 6 is a short 
program that uses the magic 



subroutine to build a simple quiz 
program. 

The subroutine makes use of 
variables named SCAN, I. LP, 
CNT, C$ and the array LSI. So 
don't use them elsewhere. Also 
remember to DIMension the ar- 
ray LST and to put the proper 
values into it before doing a 
GOSUB 9100. 

The string variable C$, which 
is assigned a value at statement 
9120, determines what charac- 
ter will be used as the light pen 
target. Currently it is set to a 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



DIM LST(1) 

LST(O) = 3 

LST(l) = 26& 

LST(a> = 394 

1-ST13) = 522 

CLS 

PRINT "WHD WAS THE SECOND PRESIDENT OF THE U. 

PRINTS LST< I )+4. "THOMAS JEFFERSON'' 

PRINTe LST(2>*4, " JOHN ADAMS" 

PRINTS LST(3)+4, "PAUL HARVEY" 

GOSUB 9100 

CLS 

IF SCAN = 2 PRINT "THAT IS CORRECT'" 

IF SCAN O 2 PRINT "I'M SORHV YOU ARE WRDNGI" 

STOP 



Program Listing 6. 



LP EN 

; SUBROUTINE TO HEAD LIGHT PEN STATUS AND RETURN 

, AC = o IF -NO LIGHT' OR lae if light 





LD 


HL. 1500 




LD 


A, O 




OUT 


(255), A 


LOOP 






, DELAY 


FOR 


J/fcO OF A S 




DEC 


HL 




LD 


A, H 




OR 


L 




JP 


m. LOOP 




IN 


A, (255) 




AND 


128 




POP 


HL 




RET 





Program Listing 7. 



graphic character but you can 
change it to something else if 
you like. 

Machine Language 
Programming 

The light pen can be used by 
assembly language programs 
just as easily as it can be by 
BASIC programs. Assembly lan- 
guage (sometimes called ma- 
chine language) has the advan- 
tage of being much faster than 
BASIC. This is a real help when 
writing light pen programs be- 
cause you can test more targets 
on the screen In less time. 

A machine language equiva- 
lent to the BASIC subroutine at 
9000 Is shown in Listing 7. This 
machine language program is 
presented using Zilog standard 
Z-80 mnemonics. 

This simple subroutine is suf- 
ficient to perform all light pen in- 
put. I recommend, however, that 
anyone planning to write ma- 
chine language programs for 
the light pen should be thor- 
oughly familiar with assembly 
language programming. 

Should you experience prob- 
lems with your light pen, the 
following suggestions could be 
of help. 

If the light pen refuses to work 
at all, the problem could be a 
weak or drained battery. Try re- 
placing the battery and then try 
one of the simple programs 
such as the ON/OFF test in List- 
ing 1. 



If the light pen still refuses to 
operate, try turning down the 
lights in the area of the video 
screen. Adjusting the bright- 
ness and contrast on the video 
monitor may also be of help. The 
light pen is most sensitive to the 
video screen when the contrast 
and brightness are adjusted for 
a bright, clear Image with a dark 
background. 

Sources for Parts or an 
Assembled Light Pen 

A complete assembled and 
tested light pen, instruction 
manual and program cassette 
can be purchased from myself 
at OASIS SYSTEMS, 2765 Rey- 
nard Way, San Diego CA 92103 
for $29.95. 

A complete kit of all parts 
needed to build a light pen in- 
cluding an etched and drilled cir- 
cuit card, all components, alu- 
minum housing, DELRIN plastic 
end caps, cable, and instruc- 
tions is also available for $19.95. 
California residents must in- 
clude the sales tax. Shipping 
charges are included In the 
price, EXCEPT on orders from 
outside the U.S. These must in- 
clude $2.50 additional shipping 
and handling charge. ■ 

Nole: Recent models otlheTRS-80 comput- 
G( and those whicli have had the cassette 
fix installed may not work correctly with the 
light pen, unless a IK ohm resistor is in- 
stalled between points B and C on the cir- 
cuit card This resistot may also be in- 
stalled between pins 2 and A inside the 
D.I.N, connectot 
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IBM SELECTRIC PRINTER 




TRS-80 INTERFItGE TO RS-73Z PRINTER 



TYPEWRITERS UNLIMITED 
■--•136 




BREAK THE 16K BARRIER! 

Med Systems Software at last provides the TRS-BO 

user with a 16K RAM resident mixology data base 
management system that far surpasses any com- 
parable software on the market today. This system 
maintams drink recipes m an encoded format which 
greatly expands the apparent on-board storage 
capabilities. The dala base comes pre-mitialized 
with 102 full page recipes of popular mixed drinks, 
each complete with ingredients, glass type, mixing 
instructions, garnishes, and cross-reference to 14 
categories. 

User additions to the dala base are easily accom- 
plished and fully explained in the accompanying 
booklet. The Basic Bartender. Each order is shipped 
with a two week money-back guarantee and an 
eiilra C-10 cassette for back-up copying. All orders 
are mailed within 48 hours 

TRS-80 16K Level II cassette S9.95 
N.C. residents please add 4% tax 

"TRS-eo IS a registered trademark of TANDY CORP." 

Med Systems Software 

P.O. Box 2674, Chapel Hill. N.C 27514 ^i28 
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I made the TRS-80* Into a serious computer. 
Now I've made the Model n into a spectacular one. 



I'm Irwin Taranto, and I've helped almost a 
thousand businesses get their first computers up 
and running. 

I've done it primarily with the TRS-80, because it's 
a really elegant piece of hardware. Given the right 
programs, it can do substantially the same work as 
the traditional minicomputers that cost four times 
as much. 

I proved it mth four on-line, interactive programs 
adapted from the genuine Osborne & Associates 
systems, originally designed for the $30,000 Wang 
computer. Then I added two of my own and made 
them all work on a $4000 TRS-80. 

Now^ I've done the same thing for the new TRS-80 
Model II. It's an $8000 computer that works twice as 
fast and has four times the memory — up to two 
million characters . 

My nevj systems are fully documented, and 
because I'm working with a much more powerful 
computer, they're a night-and-day advance over the 
Model I programs. They'll turn your Model II into a 
complete business computer, set up and ready to go. 



When I say set up and ready to go, I mean just 
that. If you're not quite sure on that point, call the 
number below and we'll give you the names of some 
of the people who've already bought all over the 
world. Call them up and hear what they have to say. 

These Model II programs are completely custom- 
tailored, which explains their $249.95 price. Before 
we'll send you a disk, you have to fill out a detailed 
questionnaire that tells us your precise business 
requirements. Then we send you the disk, all the 
instructions you need, and my phone number. If you 
call, w^e answer all your questions. If your questions 
are tough enough, I'll talk to you personally. 

Because that way I'll make sure that Model II of 

yours turns into a spectacular computer, just like 

I promised, 

, 1 

I 1 Please send me the custom questionnaires for the following | 

$249.95 Mode! IT programs; 

I ', i General Ledger/Cash Journal i 

L. Accounts Payable /Purchase Order 1 

I LJ Accounts Receivable/Invoicing I 

I r Payroll/Job Costing i 



THE TRS-80 MODEL II PROGRAMS 
General Ledger/Cash Journal: handles up to 7000 transactions 
on 500 different user-defined accounts. It keeps track of them by 
month, quarter and year, makes comparisons to the prior year, 
and does departmentalization. 

Accounts Payable/Purchase Order: generates the purchase order 
and posts the item to payables when the goods are received. 
In voice -linked, it calculates and prints checks and aged ledger 
reports and links fully to the general ledger. 
Accounts Receivable/Invoicing: keeps track of billed and 
unbilled invoices, open and closed items, agmg and service charge 
calculation. It prmts statements, links to the general ledger, and 
can work within either an invoice -linked or balance -for ward 
accounting system. 

Payroll/Job Costing: computes regular, overtime and pieceiAJork 
pay, keeps employee files, figures taxes and deductions, prints 
checks, journal, 941-A and W-2 forms, and breaks out individual 
job costs. 



I Please send me information on the TRS- 
$99.95 each 



Model I programs at | 

I 

Please send me information on other Taranto business programs I 



Your name _ 



Company name. 
Address ^ 



City/St ate /Zip. 



^45 



Taranto 

& ASSOCIATES, INC. 



PO. Box 6073, 4136 Redwood Hwy, San Rafael CA 94903 ■ (415) 472-2670 



"A ttademark of the Tandy Corporation. 



t^ Reader Service — seepage 147 
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^ ^^^^ ^ RACET COMPUTES 4 DISK SORT MER6E 'DSM 



FOR MOD I AND MOD II** TRS-SD'" 



Now you can sort an 85K diskette 
FAST— in less than 3 minutes* -PAST 

Perfect for your multi-diskette RANDOM file mailing lists, inven- 
tory, etc. Ideal for specialized report generation, sort, merge or 
combination. AM machine language stand-alone package — 
Efficient and easy to use. No separate key files required! Physical 
records are rearranged on diskette! Supports multiple sub records 
per sector including optional sector spanning. Sorts on one or 
more fields — ascending or descending. Sort fields within records 
may be character, integer, and floating-point binary. Provides 
optional output field deletion, rearrangement, and padding. 
'Sort timings shown below are nominal times. Times will vary 
based on sort and system configurations. Nominal times based 
on Mod 1 48K 4-drive configuration, 64 byte records, and 5 sort keys. 
FILE SIZE SORT TIME TYPE FILE SIZE SORT TIME 



TYPE 





(Bytes) 


(Sec) 




SORT 


16K 


33 


SORT 


SORT 


32 K 


49 


SORT 


SORT 


85K 


173 


SORT and 


SORT 


170K 


445 


MERGE 



(Sec) 
1081 
2569 
1757 



(Bytes) 

340K 

680K 
85K SORT -I- 
1275K Merge 

DSM for Mod I (Minimum 32K, 2-drives) $75 On-Dlsk 
DSM lor Modll (Minimum 64K, 1-d rive) $150 On-Disk*' 

Mod II Development Package $100** 

Machine Language SUPERZAP, plus Editor/Assembler 
Disassembler patches. 
Mod II Generalized Subroutine Facility 'GSF' $50"* 

"For Mod II Programs, Include Mod II DOS diskette w/ith order 
For Development Package, also include copy of Apparat 
NEWDOS + 5y4 diskette. 



and 



CHECK, VISA, M/C, C.O.D. 

Calif. Residents add 6% 

Telephone Orders Accepted (714) 637-5016 



00 BASIC for Level II and Disk Systems $49.95 

Full MATRIX Functions — 30 BASIC commands!! 

Mathematical and common matrix functions. Change arrays in 

mid-program. Complete array handling. Tape array read and write, 

including strings. Common subroutine calls. 

Over 50 more STRING Functions as BASIC commands!! String 

manipulation, translation, compression, copying, search, screen 

control, pointer manipulation and utility functions. Includes 

multikey multivariabie machine language sorts. Load only machine 

language functions that you want! Where you want in memory! 

Relocating Unking loader! More than you ever expected!! 

00 BUSI N ESS (Requires Infinite BASIC) $29.95 

20 Business oriented functions including: 

Printer Automatic Pagination with headers and footers! 

Packed Decimal Arithmetic (-)-,-,',/) 127 digits! 

Binary array searches and hash code generator! 

COMPROC Command Processor for Disk Systems $19.95 

Auto your disk to perform any sequence of DOS commands, 

machine language loads, BASIC, memory size, run program, 

respond to input statements, etc. Single BASIC command file 

defines execution! Includes auto key-debounce, screen print and 

lower case software driver. 

REMODEL + PROLOAD Specify 16, 32, or 48K Memory $3495 

REnumber any portion or all of BASIC program. MOve any portion 

of program from one location to another. DELete program lines. 

MERGE all or any portion from tape. Save and verify portion or 

all of combined merged programs to tape. 

GSF (Specify 1 6, 32, or 48K) $24.95 

18 Machine language routines. Includes RACET sorts. 

TRS-BQ IS A HEGISTERED TRADEMARK OF TANDY CORPORATION 



WHEN ORDERING PLEASE 
ADVISE PUBLICATION SOURCE 



^ RACET COMPUTES "3 
702 Palmdale, Oranga CA 92665 



INTRODUCING THE HOTTEST "FIX-ir' BOOK YET! 

''TRS-80 DISKAII^D OTHER MYSTERIES'' 

by Harvard C. Pennington 

Here it is . . . THE complete"disk reference manual" for your TRS-80 ! 

An excellent manual and tutor for beginners and professionals alike. 



REVEALS ALL, IN EVERYDAY PLAIN ENGLISH 

How to recover LOST FILES, HASH CODES, KILLED FILES, 

CLOBBERED DIRECTORIES, BAD PARITY ERRORS, GAT & HIT ERRORS, 

UNREADABLE DIRECTORIES, DIRECT STATEMENT IN FILE ERRORS, 

ELECTRIC PENCIL ERRORS & LOST PENCIL FILES, 

RECOVER ELECTRICALLY OR PHYSICALLY DAMAGED DISKS, 

RECOVER FROM A DOS ERROR 22 IN PENCIL, MAKE BASIC PROGRAMS UNLISTABLE, 

RECOVER OVER-WRITTEN FILES, READ OR EDIT ANY BASIC PROGRAM WITH ELECTRIC PENCIL 

REMOVE PROTECT STATUS, HOW TO USE SUPERZAP 

And the list goes on and on. 




Here is what the noted microcomputer author, WILLIAM BARDEN. JR. 

has to say about this valuable manual: 

" this extensive book by Harv Pennington is clearly presented 

and packed with good disk information. My advice to any TRS-SO user is to 
GET IT. AND USE IT !" 



'LARGE 6V2 BY 11 EASY-TO-READ FORMAT, OVER 130 PAGES" 

Send just $22-50 (Calif, add 6% lax) plus $1.00 postage to: 



■TRS-80 is a Trademark ot TANDY CORP 
ORDER TODAY I 



SEE YOUR FAVORITE 
COMPUTER STORE 
OR ORDER DIRECT 



;^37 



IJG, INCORPORATED 

569 North Mountain Ave. — Suite B 

Upland, California 91768 
(Sorry, no COD's on this special offer) 



VOLUME DISCOUNTS AVAIL. 

DEALERS — RETAILERS 

BOOK STORES 

Make inquiries on your lelfpriiHsii 
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EDUCATION 



A further report from Loyola University 
on tfieir successful computer education course. 



More Night School 



Dr. Antonio M. Lopez, Jr. 
Depi. of Mathematical Sciences 
Loyola University 
New Orleans, LA 70118 



Having run a successful 
continuing education pro- 
gram for beginners (Night 
School, 80 Microcomputing, 
January, 1980), it seemed na- 
tural for Loyola to develop an 
advanced seminar using the 
TRS-80 BASIC Level II system. 

The five evening seminar, 
held last June, was aimed at the 
non-beginner vi/ho vi/as consider- 
ing upgrading his existing sys- 
tem. 

Each session focused on spe- 
cific hardvt/are, such as the 
TRS-80 BASIC Level II unit wWh 
16K of memory and the cassette 
recorder for auxiliary storage. 
Later sessions "added on" 
equipment. 

Adding the EDIT and MONI- 
TOR modes left some partici- 
pants confused. Since working 
with the MONITOR mode re- 
quires more technical skill, we 
did little more than introduce it. 



How/ever, the EDIT mode 
sparked a good deal of interest, 
and by the end of the seminar 
the participants were glad to 
have it around. 

I introduced the participants 
to the "TRS-SO Level 1 1 Reference 
Manual Index" produced by 
Sherman P. Wantz (Microcom- 
puting, February, 1979). Like the 
EDIT command, this saved the 
students a lot of time by the end 
of the seminar. 

Initial Application 

Since one of the computer's 
chief contributions to any or- 
ganization is file management, I 
devised the follovi/ing software 
problem. 

Suppose a small retail store 
carried at most 100 items of in- 
ventory. The store owner would 
like to read his current inventory 
into his system each morning 
and store it on cassette tape. 
During the day, additions, dele- 
tions and changes must be di- 
rectly entered into the system. 
The store ow/ner would have a 
current view of inventory at any 
moment. 

At the end of the day, a new in- 
ventory file would be created by 



Field 


Length 


Attribute 


Variable Name 


ITEM # 


5 


siring 


1$ 


DESCRIPTION 


30 


siring 


D$ 


COST 


6 


Single Precision 


C 


DATE OF PRICING 


6 


Single Precision 


D 


QTYON HAND 


6 


Single Precision 


Q 


REORDER POINT 


6 


Single Precision 


R 


DISCOUNT INFO 


30 


String 

Table 1. 


DIS 



copying the information to cas- 
sette. Table 1 shows the data 
record format. 

Since physical inventory nor- 
mally occurs only once a year, 
we decided to write two pro- 
grams for this system. The first 
created the inventory master file 
after the physical inventory. 

The second program read the 
old inventory master file each 
morning, manipulated it during 
the day and produced a new in- 
ventory master file at the close 
of business. As a final touch, a 
list of those items falling below 
their reorder points was dis- 
played at the end of the day. 

The create program, Listing 1 , 
gently eased the participants in- 
to working with a Level II sys- 
tem. It demonstrated some of 
the slight differences like PRINT 
@ and PRINT #-1 instead of 
PRINT AT and PRINT # respec- 
tively. 

The update program, Listing 
2, was a different matter. First of 
all, it was relatively longer than 
most of the programs the partic- 
ipants had ever tried to under- 
stand or key into the computer. 
Secondly, it introduced the use 
not only of arrays other than A 
(found in Level I) but string ar- 
rays, as well. 

OR, ON ...GOTO..., IN- 
PUT#-1, and PRINT GHR$(23), 
not available in Level I, were all 
introduced, as well as the menu 
driver, response editing and the 
use of dummy records. 

In the first session, we limited 
our inventory to 100 items, be- 
cause of the lack of memory. 
The obvious solution to a stor- 



age problem was to "batch" the 
transactions and run them all 
through the computer at one 
time. This did not provide the 
store owner in our scenario with 
an immediate view of his inven- 
tory, but it did give him a daily 
view. 

We upgraded our system for 
the second session by adding 
an expansion interface with no 
extra memory and a second cas- 
sette recorder. 

Sequential Files 

When numerous records in a 
master file must be updated, se- 
quential files have proved effi- 
cient. These require that the 
records of the master file be 
keyed in some order. 

When batch processing takes 
place, the master file is set 
against a transaction file con- 
taining the additions, deletions 
and changes. This transaction 
file must also be arranged in se- 
quence, based upon the same 
key (Fig. 1). 

Formally, the basic logic for a 
sequential file update is: 

1. Read a master record. 

2. Read a transaction record. 

3. Compare the keys in 
both records; 

a. If the transaction key = 
the master key, we can 
execute a change or a 
deletion. 

b. If the transaction key < 
the master key, we can 
add the transaction to 
the new master file. 

c. If the transaction key > 
the master key, we copy 
the old master record to 
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Fig. 1. 



the new master file. 

4. If weencounterthedummy 
record of the old master 
file, we just add the re- 
maining transaction re- 
cords to the new master 
file. 

5. If we finish entering the 
transaction records and 
there is still information 
left in the old master file, 
we just copy all the remain- 
ing old master records to 
the new master file. 

For the second session, we 
used a scenario that allowed the 
participants to work with tape 
sequential files. 

Suppose the membership 
chairperson of a local chapterof 
a national organization wished 
to computerize the membership 



list. There were some one hun- 
dred members and monthly ad- 
ditions, changes and deletions. 

The record format for the data 
to be stored is given In Table 2. A 
dummy record was used to indi- 
cate the end of the file. 

Again, we decided to write 
two programs. The first program 
in Listing 3 is a tape creation of 
a sequential file. The second 
program In Listing 4 is a tape up- 
date of a sequential file. 

The flowchart in Fig. 2 illus- 
trates the update program. Key 
blocks are numbered in the flow- 
chart to correlate to line num- 
bers in the BASIC program. 

The Third Session 

In the third session, we added 
a line printer and an RS-232 to 



r 



THE ULTIMATE TRS~80 SPEED-UP! 



% 



MumforO Micro Syslems announces Ihe releaseof the SK-2. The mosi versatile clock modlficalion 
(or the TRS-eOavallabla. It lealures (hree speeds: normal (l.77MHz), 50% iaster, or 50% slower; 
selectable at any tme wilhoul Interrupting execution or crastiing the program It may be 
contigured by the user to change speed with a toggle switch or on software command. It may be 
tied to the expansion interface and will automatically return to normal speed anytime a disk drive 
IS active. II even has provisions for adding an LED to indicate when the computer is not at the 
normal speed It mounts inside the keyboard unit with only 4 necessary connections for the switch 
option (swilcb not included), and is easily removed if the computer ever needs service. The SK-2 
comes fully assembled with Illustrated instructions tor implementing the various options and 
cornplele satisfaction is guaranteed. . . .524.95 

DUPLICATE SYSTEM TAPES WITH "CLONE" 

This machine language program makes duplicate copies of ANV tape written for Level II They 
may Be SYSTEM tapes (continuous or not) or data lists. It is not necessary to know thef lie name or 
where it loads in memory, and there is no chance of system co-residency The hie name, entry 
point, and every byte (in ASCII format) are displayed on the video screen. Data may be modified 
belorecopy is produced. CLONE. .. .$16.95 

RAM TEST FOR LEVEL li 

Tills machine language program tests memory chips for open or shorted addresser data lines as 
well as intermitlenls. II tests each BIT tor validity and each BYTE in the execution ot an actual 
instruction as In real program execution Bad addresses are displayed along with the bad data and 
proper data. One complete test of 48K takes just 14 seconds. Also includes a lest for errors 
induced by power line glitches from external equipment. RAMTEST . .$9.95 

PROGRAM INDEX FOR DISK BASIC 

Assemble an alphahelized index ot your entire program library from disk directories. Program 
names and free space are read aulomalically (need not be typed m) and maybe alphabetized by 
disk or program. The list may also be searched lor any disk, program, or extension; disks or 
programs added or deleted: and the whole list or any part sent to the printer Finally, the list ilselt 
may bestoced on disk lor future access and update. One drive and 32K required. INDEX £19 95 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

This program allows disk users to load Basic programs or any other ASCII data tile into the disk 
version ot Electric Pencil lor editing Wow you can edit line numbers, move program segments, 
duplicate program segments, and search for the occurance ol any group ol characters 
PENPATCH....$9.95 

SPOOLER FOR PARALLEL PRINTERS "^ ''''' 

Tbis program is a full feature print formatting package teaturing user defmeable line and page 
length (with line feeds inserted between words or alter punctuation), screen dump, keyboard 
debounce, and printer pause control. In addition, printing is done from a4Kbufferareasothatthe 
LPRINT or LLIST command returns control to the user while printing is being done. Ideal for 
Selectric or other slow printers Allows printing and processing to run concurrently 
^SPOOLER S16 95 



our TRS-80. The line printer af- 
forded us the luxury of hard 
copies of programs and reports. 
We discussed the LLIST and 
LPRINT commands and demon- 
strated them. The line printer 
was then connected to the 
RS-232 and the same demon- 
strations were run. 

Next, we used the RS-232 and 
a telephone interface II to con- 
nect the TRS-80 to Loyola's 
HP3000 Series 111 minicomputer. 
We upgraded our system for the 
second time by adding 16K more 
of RAM and a minifloppy disk 
drive. We were now in the world 
of DISK BASIC and TRSDOS, 
the TRS-80 disk operating sys- 
tem. 

TRSDOS is a program that is 
provided by Radio Shack to 
simplify communication be- 
tween the user and the hard- 
ware and software being con- 
trolled. 

We discussed only a few 
TRSDOS commands-KILL, 
DIR, COPY, FREE, LIB, LIST, 



PRINT. These gave the audience 
a general feel for TRSDOS and 
the minifloppy disk system. 
Finally, we talked about two of 
the utilities provided by 
TRSDOS -BACKUP and FOR- 
MAT. Using our single drive, we 
backed up a floppy and then in- 
voked BASIC. 

Once the screen cleared, the 
answer to the question, HOW 
MANY FILES?, was anything 
but clear. The numberentered in 
answer to this question tells 
DISK BASIC how many buffers 
to create to handle disk ac- 
cesses. 

"But what's a buffer? And 
what do you mean handle disk 
accesses?" The questions 
poured forth. 

A buffer is a memory area set 
aside for temporary storage of 
input or output data. There are 
two kinds of accesses support- 
ed by DISK BASIC-sequential 
and random. This leads to a 
discussion of the OPEN and 
CLOSE commands and the dis- 



™^™ include 75* postage. California residents add 6% sales tax iSSi 

m^mt Complete satisfaction or full retund. IttWI 

MUMFORD MICRO SYSTEMS 

BOX 435-E Summehand, California 93067 (805) 969-4557 



Field 


Length 


Aitiibute 


Variable Name 


LAST NAME 


15 


Siring 


LNS 


FIRST NAME 


)5 


String 


NFS 


MIDDLE INITIAL 


1 


String 


MIS 


JOB TITLE 


20 


String 


TS 


BUSINESS 








STREET 


20 


String 


BS$ 


CITY 


15 


String 


BCS 


STATE, ZIP CODES 


8 


String 


ezi 


PHONE 


7 


String 


BPS 


HOME 








STREET 


20 


String 


HS$ 


CITY 


15 


StrirtQ 


HCS 


STATE. ZIP CODES 


8 


String 


HZS 


PHONE 


7 


String 


HP$ 


MAIL TO 


1 


Single Precision 


MT 


1 HOME 








3 OFFICE 








MEMBERSHIP 


1 


Single Precision 


M 


1 LOCAL ONLY 








2 NATIONAL ONLY 








3 NATIONALS LOCAL 








MEMBERSHIP # 


7 


Siring 


MN$ 


(National oniyt 








MEMBERSHIP START 


6 


Single Precision 


MS 


DATEIMMDDYY) 








MEMBERSHIP 


6 


Single Precision 


ME 


Expiration 








DATEIMMDDYY) 








OFFICE HELD 


1 


Single Precision 


OH 


1 President 








2 Vice president 








3. Secretary 








4. Treasurer 








5 Conimitlee Chairperson 








6 NofiR 








COMMITTEE ASSIGNMENTS 


1 


Single Precision 


CA 


T Program 








2. Site Represenialive 








3. Professional Development 








4 Membership 


1 






5. None* 


Table 2 
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tinction between physical and 
logical records of a file. 

It then became obvious to 
some that we had used sequen- 
tial file techniques in the 
previous two sessions with our 
tapes, and they asked, "How 
similar are tape and disk se- 
quential files?" 

Indeed, they are very similar, 
and we carried this point home 
by showing how to modify the 
existing programs of the tape 
creation of a sequential file 
(TCSF) and the tape update of a 
sequential file (TUSF). 

Since we must load our pro- 
grams from tape into the TRS-80 
under control of DISK BASIC, we 
first acquainted the participants 
with CMD "T" and CMD "R". 
Once loaded, TCSF was modi- 
fied to a disk creation of a se- 
quential file (DCSF), changing 
lines 10, 150, 180 and 190. The 
DCSF program is shown in List- 
ing 5. 

Modifications to TUSF were a 
little more complicated because 
they also involved a change in 
program logic. In TUSF, we used 
a dummy record to indicate the 



end of our file; however, in DISK 
BASIC under a sequential file 
access we can use the end of 
file indicator (EOF) and elimi- 
nate the dummy record. 

Again, we used the flow- 
charts in Figs. 2 and 3 to com- 
pare and contrast TUSF and 
DUSF. The DUSF program is 
shown in Listing 6. The lines 
modified were 10, 20, 50, 60, 80, 
90, 190, 1200, 1300 and 1460. So 
ended the third session. We had 
covered a lot, but there was so 
much yet to go over. 

The Fourth Session 

We upgraded our hardware 
for the final time in the fourth 
session by adding one more 
minifloppy drive. For the last 
two sessions we wanted to con- 
centrate on random access 
techniques and the develop- 
ment of a software system. 

Random access offered sev- 
eral advantages over the se- 
quential techniques we just fin- 
ished. For one thing, instead of 
having to read from the begin- 
ning of a file, we could read a 
specific record directly. Further- 




more, the data was not stored in 
ASCII but compressed so that it 
could be read and written faster 
and take less space on the disk- 
ette. 

Like the sequential file, we 
had to use the OPEN and 
CLOSE instructions to manipu- 
late our buffers; however, we no 
longer had to think of one logi- 
cal record being a physical 
record. In fact, more than one 
logical record went into a physi- 
cal record. 

We introduced the idea of 
subrecords and the blocking of 
these subrecords into a physi- 
cal record via the use of the 
FIELD instruction. To get data in 
and out of the buffer we called 
on the intrinsic functions of 
DISK BASIC-LSET, RSET, 
MKI$, MKS$, MKD$, CVl, CVS, 
CDV. 

There was a great deal of con- 
fusion and discussion about 
these topics, so some simple ex- 
amples were given to assist in 
setting up buffered fields. To get 



the records in and out of a ran- 
dom file, we explained the use of 
the GET and PUT instructions. 

The scenario for the last two 
sessions allowed us to develop 
a software system complicated 
enough to challenge all the par- 
ticipants, yet familiar enough 
for them to feel comfortable 
with the application. 

Suppose a bookkeeper for a 
high school used the accounts 
found in Table 3. Each month 
the bookkeeper posted no more 
than 50 checks or receipts on 
these accounts. These transac- 
tions were filed for possible 
future reference in a ledger 
book, and a total for each ac- 
count was maintained on an ac- 
count summary sheet (see Table 
4). Each entry in the transaction 
file consisted of an account 
number, a description, the date 
of the transaction, the receipt or 
check number and the amount 
of the transaction. 

"What kind of software is in- 
volved in a system like this?" 




INPUT 
THSNS 



MAKE 

CHANGE5 TO 
OLD MAST 
BEC 



/ PRINT* ;. 
J NEW r 

7 f ROM 
' OLD M( 



'[NPJT#1. 
OLE MAST I 
BEC / 




CZE3 



Fig. 2. 



Fig. 3. 
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for the TRS-80 frcMTi Micro- Mega 




CASSETTE CONTROL UNIT 

• Seeea ufi rouicsssette rape handling • Pinpoml program locations on lape with an audiaie moi 
Get prolecrion from recording and playbacif glilcfies re$ulfii>Q from groui^d loops • tlimineite tf}e I 
plugging ana unplugging of 'ecordei cables 

Tne t-licro-MegaCassewe Conlrol Unit does all inis and more You gel insfani ^^^ ' 

manual control of the recorder al the flick of a snilch. V/anl to find itie HK ■ ~ll 

beginning or end of a p^ogiam^ Flick anoiner sviilch and you'll bear :l. All 
caoies remain plugged in all the lime. 

Tne f^icro-Mega Cassette Conlrol Unit does a Id to improve the appear- 
ance of your TRS-BO syslem, too As shonn, ii's in a 2'/; " < 5" box vihicn 
snuggles between Itig keytioard snd your recorder. There is no need to 
moue We recorder, and all cables come neatly into the unit. The Cassette 
Control Unit is tailored to the CTR-41 recorder, bul may Be used with most 
other recorders as well- 

CASSETTE CONTROL UNIT $37.95 

Add SJ.OO for postage and handling 

CPU MONITOR 

Ever find yourself with a blank screen wondering what your comi}uter is up to^ The Micro-Mega CPU /Monitor 
can tell you, for eiample, • ItyourCPUisinaloopMilhnoeril. • When a long sort is nearing completion, 
or • It a key flounces during keyboard input The CPU Moniloi lets you listen lo all CSA VEs and CLOADs 
and will help you guickly lind the correct recorder volume setting If you tiave en expansion interlace, you 
will always know whether the real-time clock is on or off because you can hear it. 
The Micro Mege CPU Monitor gives a voice lo the Z-SO microprocessor m 
your TRS-80 by using AM radio circuitry to pick up the computational 
rhythms of If^e CPU. wnich are amplified and played ttirough a loudspeaker 
The pickup unit of the CPU Monitor, shown at left in We ptioto, goes under 
your TfiS-80 keyboard. It is connected by a 36" cable to the speaker and 
control unit, which includes an on/off volume control and an LED "power- 
on" indicator. The Monitor is powered by an AC adapter, shown at right in 
the photo. /Vt> batteries are needed and no eteclricat connections to your 
TRS-SOare reguiied 

By listening to theCPU f^onifor. you will soon become familiar with the "personalities" of tfie programs you 
run and whether they are executing in a normal way. A dramatic use of the CPU Monitor is in the great 
enhancement which if provides for computer games. (See "Gaming Environment" below ) 

CPU MONITOR '. $47.95 

Add $2.00 tor postage and fiandling 

THE GREEN-SCREEN 

The eye pleasing Green-Screen tsis over the CRT of your TRS-SO Video Display and gives you improved con- 
trast with reduced glare. You get bright, luminous green characters and graphics like those featured by very 
expensive CRT units. 

The Green Screen is closely matched to the color and texture ol the TRS- 
Video Display and improves the overall appearance of your syslem. It is a 
tached with adhesive strips, which do not mar your display unit in any wa 
The Micro-Mega Green-Screen gives improved video display visibility tor i 
application^ and is especially effective in creating dramatic, htgh-impaci 
displays lor computer games. fSee "Gaming Environment" below ) 

THE GREEN-SCREEN --!(-. 

Add $1.00 lor postage and l>andling 

THE ULTIMATE STAR TREK PACKAGE 

Tired of trivial computer games'^ This complete Star Trek package will provide you with endless fascination 
and chaitenge In addition lo the program cassette, it includes comprehensive insiructions. a pad of 
"Voyage Lag" record sheets, and a free-standing "Torpedo and Maneuvering Chart " 

The package is built around the latest version of Lance Micklus' mcom- . - 

parable SIdr Trek 111. a >3.000 byte program with a host ol subtle and imag- 
inative features, which include numerous dynamic and spectacular graphic 
displays Slar Trek 111 puts you in command of the Enterprise cruising in a j,- 

galaxy of 192 quadrants filled with uncharted hazards, including hostile .''"■'' 

t^lingons. pulsars, and black holes You have at your disposal scanners, 
various weapons and defense systems, on-board computers, and a loyal 
crew (You will need them all to survive the Klingons I 

Your mission is to rid the region of Klingons and lo locate five inhabitable planels, all within 300 slardays, 
before returning to Star Fleet Headquarters where your overall effectiveness as a starship commander will 
be scored. High scores are possilile only wiW careful planning and efleclive battle tactics The "Voyage 
Log" sheets will guide your strategy, and the "Torpedo and Maneuvering Chart" will give you a vital edge in 
combat (When you engage three Klingon ships you can't afford to miss.} 

STAR TREK PACKAGE llor Level II. WK only) S22.95 

Add $1.00 lor postage and liandling 

CREATE YOUR OWN SPECTACULAR 
GAMING ENVIRONMENT Cand save $5.00] 

The Enterprise is In battle trim with deflector shields at full power As her captain, you are taking her ^nio 
combat Thebattleslations siren rings m your ears and "CONDITION RED" flashes on your monitor screen 
You call tor warp drive and key in the coordinates of the guadrant where your scanners have detected Kling- 
on ships. As you select the warp factor, you hear the reassuring clicking of your navigational gear as it ac- 
tivates the warp drive 

Suddenly, you break out of hyperspace and your monitor displays the chilling sight ot three Klingon Battle 
Cruisers floating on your screen i Their evil shapes glow in luminous green against the black void of space. 
Moments later, you hear the characteristic rasping sound of Klingon laser weapons, and, as you watch, 
high-energy beams come knifing toward We Enterprise in succession from each of the Klingon ships 

You have been hit' Vou hear the dismal sound of the damage control alarm as "DAMAGE TO ifVARP DRIVE" 
and "DAMAGE TO PHASERS"ffash on your screen. The Klingons have slopped firing' The Enterprise is 
crippled, bul your best weapon is still intact, and it's your turn now' You key in the command for photon 
torpedoes. As your screen again dispfays We position of the Klingon ships, you select a firing vector from 
your torpedo chart and key It m Now you hear the buzz of your photon torpedo as you see it speeding toward 
a Klingon ship. II strikes him dead-cenleri As you watcn, the Klingon Battle Cruiser disintegrates, accompa- 
nied by a satislying crackling sound. 

Does ihe above scenario sound lar-fetched'' Not at all It's a small sample of what you will experience wnh 
Micro-Mega's Gaming Environment which consisfs of • The STAR TREK PACKAGE • The GBEE!^ 
SCREEN and • TheCPU MONITOR The fast-paced and dynamic action reflects the superb Star Trek III pro 
gram together with the "Voyage Log" and "Torpedo Chart" of the Slar Trek Package. All of Ihe unique 
graphic displays are greatly enhanced by the Green-Screen Finally, We uncanny sound effects are pro 
duced by We CPU Monitor, which faithfully picks up the FOR. NEXT loops anddther CPU patterns, which 
create Ihe distinctive siren sounds that accompany the ALERT and DAMAGE messages along wiw We 
harsher notes of the weapons salvos Once you've tried if. you won't any longer be satisfied with silent com 
puler games. 

Remember that 

Monitor and the 

the individual items 

GAtvlING ENVIRONMENT $79.85 

Add $3.50 lor postage and handling 



'iW the Gaming Env 



lent you also get all of the other excelleni features of Ihe CPU 
ling applications You also save S5.00 off Ihe combined cosi ol 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown tor postage and handling lo price ol the item. All Hems shipped within 48 
hours by lirsl class or priority mail. Virginia residents, add 4% sates (ax 
^29 



Micro-Mega • PX3. Box 6S65 - Aringt»n,\^ PPP06 



Income 

110 Activities. 
120 Annual trips 
130 State Funds 
140 Fund Raising 

151 Savings Account Interest 

152 Savings Certificates 

161 Maintenance 

162 Catering 

163 Music 

171 Sports Donations 
l72Sporls Fees 

173 Sports Tournaments 

174 Sports Uniforms 
180 Yearly Dues 
190 insurance 

200 Generai Donations 
210 Misceilaneous 



Disbursements 

311 Monthly Activities 

312 Meeting Activities 

313 Other Activities 
320 Annuai Trips 

330 State Contributions 
340 Fund Raising 

351 Trip Savings 

352 Maintenance Savings 

353 Generai Savings 

354 Special Savings 

355 interest Savings 

356 Designated Savings 

361 Maintenance Sen/ice 

362 Music Service 

363 Insurance Service 

364 Service Generai 

371 Sports Equipment 

372 Sports Entrance Fees 

373 Sports Troptiies 

374 Sports Uniform 

375 Sports Other 

381 Printing and Supplies 

382 Postage 
390 Petty Cash 

400 Academic Grants 
410 Misceiianeous 

Table 3. 



someone asked. 

Since the transactions are ac- 
complished monthly, we sug- 
gested keeping one file for each 
month, calling them JAN, FEB, 
MAR . . . DEC. The account 
summary sheet was handled as 
a separate file called FMASTER. 
The programs that manipulated 



these files were: 

INIT - used to initialize 
FMASTER. 

UPDATE-used to post the 
monthly transactions to 
FMASTER and create the 
monthly transaction file for later 
review. 

REVIEWM - used to allow the 
principal to review any account. 

REVIEWT-used to allow the 
principal to review any month's 
transactions. 

Since we had two minifloppy 
drives, we elected to keep all 
system software on DRIVE 0, 
while all the data files were kept 
on DRIVE 1. We used FORMAT 
to initial the data diskette in 
DRIVE 1. The FMASTER file was 
created in the INIT program List- 
ing 7. 

Since only 90 bytes were 
needed for each account (logi- 
cal record), two subrecords 
could be contained in each 
physical record (256 byte 
sector). For each account, the 
totals for all the months, the 
four quarters and the year-to- 
date were initialized to zero in 
INIT. 

The UPDATE program found 
in Listing 8 was designed to 
manipulate FMASTER and cre- 
ate a monthly transaction file. 
We decided on the familiar 
strategy of accepting into mem- 
ory ad the transactions before 
putting them in ascending order 
via account numbers. 

An exchange sort was taught 
and implemented in lines 
1000-1110 of UPDATE. Since 
each transaction record needed 
onty 40 bytes of storage, six 
subrecords were put into each 
physical record. A dummy 
record was used to indicate the 



Account Number XXX 


JAN XXXX.XX 




FEB XXXX.XX 




MAR XXXX.XX 


FIRST QUARTER XXXX.XX 


APR XXXX.XX 




MAY XXXX.XX 




JUN XXXX.XX 


SECOND QUARTER XXXX.XX 


JUL XXXX.XX 




AUG XXXX.XX 




SEP XXXX,XX 


THIRD QUARTER XXXX.XX 


OCT XXXX.XX 




NOV XXXX.XX 




DEC XXXX.XX 


FOURTH QUARTER XXXX.XX 




YEAR TO DATE XXXX.XX 




Table 4. 
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last record in the file. As an 
afterthought, a choice of a print- 
ed copy of the transaction file 
was given. 

The Final Session 

The last evening was spent 
writing the programs to review 
the master file (Listing 9) and 
reviewing the transaction files 
(Listing 10). The REVIEWM pro- 
gram produced the form found 
in Table 3 on the video screen. 

In REVIEWT, the operator 
again used hard copy. Thus, we 
completed our general ledger 
software and another continu- 



ing education program. 

To dale, an evaluation of our 
continuing education programs 
with the TRS-80 by the par- 
ticipants has indicated some 
future needs in the community. 
For example, the time is ripe for 
a course in TRS-80 Assembly 
Language Programming. 

Also, the problem of adding 
and deleting records from a ran- 
dom file needs to be addressed. 

When someone has complet- 
ed the beginners and nonbe- 
ginners courses, we feel that 
short special topic courses are 
now feasible. ■ 



101 

102 

103 
110 

120 



110 

120 
121 

122 
130 
200 
210 

220 
230 



240 

241 

242 
250 
251 
252 

253 

254 



255 
256 

257 
300 

310 



' *•'•• CREATES INVENTORY MASTER FILE *'*«*« 

' PROGRAMMER: DR. ANTONIO M. LOPEZ JB , 

' PROGRAM-ID -=> TCREINV LAST MODIFIED ==> MAY 29, 1979 

CLEAR ia0:I = l:CLS:PRINT'PL7lCE CLEAN TAPE INTO RECORDER — - 
PRESS PLAY AND RECORD" 

INPUT"HIT <ENTER> TO CONTINUE" ;QS 

CLS:INPiJT"WHflT IS THE ITEM # (5 CHARACTERS MAX) " ; ISiPRINT 

INPUT'WHAT IS THE DESCRIPTION (30 CHftRftCTERS MAX) " ;DS :PRIN 
T 

INPUT"WHAT IS THE COST PER ITEM (NUMERIC ~ NO COMMAS OR S 
) ";C: PRINT 

INPUT-WHAT IS THE DATE OP THIS PRICING (MMDDYYl " ;D : PRINT 

1NPUT"WHAT IS THE QUANTITY ON HAND" ;0: PRINT 

INPUT"WHAT IS THE REORDER POINT" ;R: PRINT 

INPUT"HHAT IS THE DISCOUNT INFORMATION (30 CHARACTERS MAX) 
";DIS:PRINT 

CLS:PRINT @ 44B, CHRS (23) ; "*** WRITING DATA TO TAPS *'*":P 
RINTI-1,I$,C,D,DS,Q,R,DIS:CLS 

INPUT"ARE THERE MORE ITEMS" ;QS 

IF QS="YES" THEN GOTO 20 

IF QS^"NO" THEN GOTO 110 

PKINT"PLEAEE ANSWER WITH A YES OR NO":GOT0 100 

PRINT#-1,"ZZZZ2".0.0, "DUMMY ",0,0, "NONE" 

FOR J=1TO20:CLS:PRINT @ 448, CHR$(23); "REMOVE DATA TAPE F 
ROM RECORDER":FOR N=1TO250 :NBXT NjNEXT J; END 



Program Listing 1. 



• ***** UPDATE INVENTORY MASTER FILE ***** 
' PROGRAMMER: DR. ANTONIO M. LOPEZ, JR. 

' PROGRAM-ID ==> TUPDINV LAST MODIFIED ==> HAY 29, 1979 
CLEAR 7000:DIH I S (100 ) ,DS (100 ) , C 1100] ,D (100 ) ,Q [1001 ,R(100 | 
,DIS(100) :DEFINT N:N-1 

CLS:PRINT CHRS{23) :PRINT @ 443, "LOAD INVENTORY MASTER TAPE 
":PRINT 3512, "PRESS PLAY" 

PRINT:PRINT!lNPUT"HIT <ENTER> TO CONTINUE";QS 

CLS:PHINT P 448, CHRS (23 ) ; "*** READING OLD MASTER FILE *** 

N=0 

INPUTi-l,lS,C,D,DS,Q,R,DlS 

IF 1S--ZZZZZ" GOTO 100 

N=N+1 

IS(N)-IS:C(N1=C:D{N)-D:DS(N)=DS:Q{N1=Q:R(N1=R:DIS(N1=DIS:G 
OTO 60 

CLS;PRINT CHRS(23) ; "DO YOU WISH TO: " : PRINT"1>CHANGE INFORM 
ATI0N":PRINT"2>DELETE AN ITEM FROM INVENTORY" 

PRINT"3>ADD AN ITEM TO INVENTORY" : PRINT"4>REVIEH THE STATU 
S OF AN ITEM":PRINT"5>TERMINATE THE PROGRAM" 

PRINT:PRINT;INPUT"WHAT IS YOUR CHOICE";NA 

IF (NA=1) OR (NA-2) OB (NA=31 OR (NA-4) OR (NA=5] THEK GO 
TO 130 

PRINT"PLEASE ENTER A 1, 2, 3, 4, OR 5":G0T0 120 

ON NA GOTO 200, 300, 400, 500, 600 

CLS:INPUT"WHAT IS THE ITEM #";IS:GOSUB 700 

CLS:PRINT"DO YOU WISH TO CHANGE" : PRINT"1> ITEM # :'';IS(NI) 
:PRINT"2> DESCRIPTI0N:";DS(NI1 

PRINT"3> COST AND DATE:";C(NI1 ,-D(NI) 

PRINT"4> QUANTITY ON HAND: " ;Q(NI) : PRINT"5> REORDER POINT:" 
;R(NI) !PRINT"6> DISCOUNT INFORMATION: " ;DIS (NI) !PRINT"7 > NOTH 
ING ELSE" 

PRINT:PRINT: INPUT"WHAT IS YOUR CHOICE";NA 

IF (NA-lj OR (NA-2) OR (NA=3) OR (NA=4) OR (NA=5) OR (NA=6 
) OR (NA=7) THEN GOTO 350 

PRINT"PLEAEE ENTER A 1, 2, 3, 4, 5, 6, OR 7":GOT0 240 

ON NA GOTO 251,252,253,254,255,256,257 

IHPUT"WHAT IS THE NEW ITEM # " ; IS (NI) :GOTO 210 

INPUT"WHAT IS THE NEW DESCRIPTION (30 CHARACTERS MAX)";DS[ 
NI) :GOTO 210 

INPUT"WHAT IS THE NEW COST" ;C (Nil : INPUT'WHAT IS THE DATE O 
F THIS PRICING (MMDDYY) ";D(NI) :G0TO 210 

O=0:PRINT"TO DEPLETE INVENTORY BY 2 ITEMS ENTER -2'':PRINT: 
PRINT'TO REPLENISH INVENTORY BY 2 ITEMS ENTER 2" : PRINT: INPUT 
"WHAT IS THE TRANSACTION" :Q:Q(NI) =Q(NI)+0:GOTO 210 

INPUT"WHAT IS THE NEW REORDER POINT" ;R (NI) :GOTO 210 

INPUT"WHAT IS THE NEW DISCOUNT INFORMATION" ;DIS (NI) :G0TO 2 
10 

GOTO 100 

CLS:INPUT"WHAT IS THE ITEM #";IS:GOSUB 70B 

CLS:PHINT"ITEM TO BE DELETED: " :PRINT"ITEM I : " ; IS (NI) : PRIN 
T"DESCRIPTION: ";D$(NI1 



320 
330 

340 
350 
360 
370 



410 
420 
430 

440 
450 
460 

500 
510 
520 
530 
540 
550 
560 
570 



610 
63e 

640 
650 

66 

67 



6 82 
6!)3 

684 
690 
700 

■ 710 
720 
730 
740 

750 



i2e 

13E 

i4e 

150 

160 

17 
160 

190 

100 



PH1NT"C0ST AND DATE:'';C(NI) ;D(NI) 

PRINT"OUANITY ON HAND: ' ;Q(NI) :PRINT'REORDER POINT: " fR{NI) : 
PRINT"DISCOUNT INFORMATION :" ;DIS (NI) 

PRINT:PRINT:INPUT"DO YOU WISH TO DELETE" ;QS 

IF Q$<>"YES" THEN GOTO 100 

IF N=NI THEN N:-N-1:GOTO 100 

IS{NI)-IS(N1 :DS(NI)-DS(N) :C(NI)=C{N) :D(NI1-D(N) :Q(NI)=Q(N) 
:R(NI)-H(N):DIS(NI)=DIS(N) :N=N-1:GOTO 100 

N=N+1:CLS:INPUT"WHAT IS THE ITEM *"; IS (N) : PRINT: INPUT'WHAT 
IS THE DESCRIPTI0N";DS(N1 

PRINT: INPUT"WHAT IS THE UNIT COST";C(N) 

PRINT: INPUT"WHAT IS THE DATE (MMDDYY) " ;D{N) 

PRINT :INPUT"WHAT IS THE QUANTITY ON HAND";0[N1 

PRINT:INPUT"WHAT IS THE REORDER P0INT";R(N1 

PRINT: INPUT"WiiAT IS THE DISCOUNT INFORMATION" ;DlS (N| 

GOTO 100 

CLS;INPUT"WHAT IS THE ITEM i';IS:GOSUB 700 

CLS:PRINT"1TEM t:";lS(NI) 

PRINT ;PR1NT"DESCRIPTI0N:";DS(NI) 

PRINT:PRINT"COST AND DATE: "iC(NI) ;D(NI) 

PRINT:PRINT"QUANTITY ON HAND: " ;Q(NI1 

PRINT: PRINT"REORDER POINT: ";R(NI) 

PRINT: PRINT "DISCOUNT INFORMATION: " ;DI S (Nil 

PRINT:PRINT;1NPUT"D0 YOU WISH TO CONTINUE REVIEWING INVENT 
ORY " ; Q? 

IF QS="YES" THEN GOTO 500 

GOTO 100 

CLS:PRINT"PLACE CLEAN TAPE INTO RECORDER — PRESS PLAY AND 
RECORD" 

INPUT"HIT ^ENTERV TO CONTINUE" ;QS 

CLS:PBINT @ 448, CHRS ( 23 ) ; "*** WRITING NEW MASTER FILE *** 

FOR HI=1 TO N 

PRINTi-l,IS(NI) ,C(NI) ,D(NI) ,D$(NI) ,Q(NI1 ,R(NI) ,DIS[NI) 

NEXT NI 

PRINT*-1,"ZZZZZ", 0,0, "DUMMY ",0,0, "NONE" 

CLS:PHINT TAB(20) "REORDER REPORT" 

PRINT"ITEM #";TAB|10)"QTY ON HAND" ;TAB(25) "R-PT" ; TAB( 35 1 "D 
ESCRIPTION" 

FOR NI-1 TO N 

IF Q(NI)<=R(NI) THEN PRINT I S (NI ) ; TAli( 14 )Q (NI) ; TAB{ 251R(NI 
) ;TAB(35)D5(NI) 

NEXT NI 

END 

FOR NI=1T0 N 

IF IS = ISINI) RETURN 

NEXT NI 

PRINT"INVALID ITEM # — PLEASE CHECK YOUR DATA" 

FOR NN=1 TO 5000;NEXT NN 

GOTO 100 
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• ***** ^ftpE CREATION OF A SEQUENTIAL FILE ••»»* 

' PROGRAMMER: DR. ANTONIO M. T,OPEa, JR. 

' PROGRAM-ID ==> TCSF LAST MODIFIED ==> MAY 29, 1979 

CLEAR 300:CLS:PRINT"PLACE CLEAN DATA TAPE INTO RECORDER — 
PRESS PLAY AND RECORD" : INPUT"HIT <ENTER> TO CONTINUE";QS 

CLS:INPUT"LAST NAME ";LNS: INPUT"? IRST NAME "; NFS : IHPUT"MIDDL 
E INITIAL";MIS:INPUT"JOB TITLE";TS 

INPUT-BUSINESS STREET ADDRESS" ;BSS : INPUT"BUSINESS C1TY";BC 
S:INPUT"BUSINESS STATE AND ZIP" ;BZS : INPUT"BUSINESS PHONE'':BP 

S 

1NPUT"H0ME STREET ADDRESS" ; HSS : IHPUT"HOHE CITY" :HCS : INPUT" 
HOME STATE AND ZIP" ; HZS : INPUT-HOME PH0NE";HPS 

PRINT"SEND CORRESPONDENCE TO: " ;TAB ( 25) "1> HOME ADDRESS":PR 
INT TAB(25)'2> BUSINESS ADDRESS" : IHPUT"CHOICE" ; MT 

IF (MTOl) AND (MT02) THEN GOSUB 1000:GOTO 50 

MN=0:MS=0:ME-0:PRINT"MEHBER5HIP STATUS" ;TAB{ 251 "1 > LOCAL 
NLY":PRINT TAB(25r'2> NATIONAL ONLY":PRINT TAB(25r'3> NATION 
AL AND LOCAL" ;INPtIT"CHOICE";H 

IF (HOll AND (M02) AND (H03) THEN GOSUB 1000:GOTO 70 

IF (M=21 OR iM=31 1NPUT"MEHBERSHIP #";MH 

IF (M-11 OR (M=3) INPUT"LOCfiL MEMBERSHIP START DATE (MMDD 
YY) ";HS:INPUT"LOCAL MEMBERSHIP EXPIRATION DATE";ME 

PHINT"OFFICE HELD; " ;TAB(25) "1> PRESIDENT" :PRINT TAB(251"2> 
VICE PRESIDENT":PRINT TAB(25r3> SECRETARY" :PRINT TAB(25)"4 
> TREASURER": PRINT TAB(25r5> COMMITTEE CHAIRPERSON" : PRINT T 
AB(25) "6> KONE":inpUT''CH0ICE";0H 

IF (OHOll AND {0HO21 AND (0HO3) AND (0HO4) AND (0HO5) 
AND (0HO61 THEN GOSUB 1000:GOTO 110 

PRINT "COMMITTEE ASSIGNMENT; " ;TAB ( 25) "1> PROGRAM" : PRINT TAB 
{251"2> SITE REPRESENTATIVE" :PRINT TAB(25)"3> PROFESSIONAL D 
EVELOPMENT': PRINT TAB[25)"4> MEMBERSHIP" :PRINT TAB(25)"5> NO 
NE":INPUT ■■CHOICE";CA 

IF (CAOl) AND (CA02) AND (CA03) AND (CA04) AND (CA05) 
THEN GOSUB 1000:GOTO 130 

PR1NT#-1, LNS,NFS,MIS,TS,BSS,BCS,BZS,BP5,HSS,HCS,HZS,HPS,M 
T,M,HN,MS,ME,OH,CA 

PRINT:INPUT "ARE THERE MORE MEMBERS" ;QS : IF QS="YES" THEN G 
OTO 20 

IF OSO'NO" THEN GOSUB 1000:GOTO 160 

PRINT#-1,"ZZZZZ","DUMHY",MIS,TS,BSS,BCS,BZS,BPS,HSS,HCS,HZ 
5,HPS,MT,M,MN,HS,ME,0H,CA 

CLS:PRINT"END OF PROGRAM: TCSF" : PRINT;PRINT"REHOVE DATA TA 
PE FROM RECORDER";PRINT:PRINT:END 

PRINT"****" INVALID RESPONSE ~ PLEASE CHECK YOUR ANSWER": 
RETURN 
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' *"** TAPE UPDATE OF A SEQUENTIAL FILE ***** 

' PROGRAMMER: DR, ANTONIO M. LOPEZ, JR, 

' PROGRAM-ID ==> TUSF LAST MODIFIED -= > MAY 31, 1979 

CLEAR 600:CLS:PRINT"PLACE OLD MASTER TAPE IN RECORDER #1"- 
PRINT"PRESS PLAy":PRINT:PKlNT"PLACE CLEAN TAPE INTO RECORDER 
t2":PEINT"PRESS PLAY AND RECORD (THIS WILL BE THE NEW HASTE 
R TAPE) ":PRINT:INPUT"HIT <ENTER> TO CONTINUE'jQS 



Program continues. 
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SAVE 



ON ADD-ON 
PRODUCTS FOR 



TRS-80 




The largest family 

of disk drives from ■"-■*='i-*«/ 

the largest supplier, '^^^' ' 
drives come ^*Wa r 

complete with 
power supply and ^liHfe 

cabinet. -' s^lW 

MTI-40 Disk Drive, 35 & 40 track $369 

TF-1 Perfec FD200. 40 track, use botti sides S389 

TF-3 Shugart SMOO, 35 track, same as tandy S389 

TF-5 MPI B51 . 40 track S379 

TF-70 Mjcropolis, 77 track witti 195K of storage S639 

TDH-1 Dual sided drive, 35 track $499 

Mox FJisk 2 10 Megabyte (fixed) a^ o An 

Winchoiter Techinoiogv vOo4y 



NEW PRODUCTS 

16K Memory $86 

Modem $1 79 

Expansion Interface 32K $499 

AC isoiator $47.95 



PRINTERS 

DP800 Anadex, 80 column, 112cps $949 

LP779 Centronics 779 $1099 

LP730 Centronics 730 $950 

LP700 Centronics 700 $1 395 

LP701 Centronics 701 Si 759 

LP702 Centronics 702 SI 995 

SPi^'-1 Spinv^riter-NEC S2525 



NEW! LlHEPHlHTEn 




-k DRIVES FOR ANY rVHCROCOMPUTER 4^ 

Does not include power supply & cabinet 

MOD II DISK DRIVES NOW AVAILABLE 

Perfec FD200 $282 

Perfec FD250 (dual head) $399 

Shugart SA400 (unused) \ $286 

Shugort SA800 $479 

MPI B52 $349 B51 $279 



SOFTWARE 

Disk Drive Motor Speed Test $19.95 

New DOS'- with over 200 modificotions and 

corrections to TRS-DOS $99 

New DOS* 40 track $110 

AJA Word Processor $75 

AJA Business Progrom $250 

F'ocet Infinite Bosic $49.95 

Disk Drive Alignment Progrorri $109 

Radix Data Base Progrom $99.95 

Electric Pencil $150 



ALL PRICES CASH DISCOUNTED. FREIGHT FOB/FACTORY 



fil 



/mCROCQ/MPUTER 
TECHNOLOGY 
INCORPORATED ^28 




pparot ln( 



3304 W. MacArthuf 

Santa Ana, CA 92704 

(714) 979-9923 



7310 E. Princeton Ave. 

Denver, CO 80222 

(303) 758-7275 



140 
151 
152 



15 3 
154 
155 



156 

157 

isa 



16 
180 

182 
183 

1B4 
190 
200 
210 

220 

300 
310 

320 
100[ 



1010 

1015 
1020 

1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1065 

1075 

1080 



1200 
1300 
1400 

1405 

1410 

1415 
1420 



1430 
1435 



1445 
1450 



1455 
1460 



GOSIJIS 1100:GOSUB 1200:IF LNS-"ZZZZZ" THEN (^OTO 300 
IF LNS=N3S AND NFS=N1S AND MIS-N2S THEN GOTO 100 

IF njscln; then goto 200 

GOSUB 1300;GOSUB 1200 

IF LKS="ZZZZ2" THEN GOTO 300 ELSE GOTO 30 

GOSUB 1300:GOSUB 1200:IF LNS<>"ZZZZZ" THEN GOTO 80 

LMS-"ZZZZZ":NFS="DUMMY":GOEUB 1300 iCLS: PRINT"END OF PROGRA 
M: TUSF" lEND 

CI,S:INPUT"IS Tills A DELETION" ; QS : IF {QSO'YES") AND |0S<>" 
NO") THEN GOTO10e 

IF QS="YES" THEN GOTO 180 

CLS;GOSUB 1000:PRINT:PRINT"DO iOU WISH TO CHANGE" : PRINT TA 
B(10r'l> JOB TITLE";TAB(301 "2> BUSINESS ADDRESS" : PRINT TAB(1 
e)"3> HOME ADDRESS";rAB(30] "MAILING ADDRESS" :PRINT rAB{101"5 
> MFMBERSHIF STATUS";TAB(30j "6> MEMBERSHIP START DATE" 

PRINT TAB|10r"?> MEMBERSHIP EXF DATE" ; TAB(30 ) "8> OFFICE HE 
LD":PR1NT TAB|10)"9> COMMITTEE ASSIGNMENT" ; TAIi | 3 )" 10 > NOTHI 
NG ELSE" i PRINT: I NPUT "CHOICE " ;0 

ON Q GOTO 151, 152, 153, 154, 155, 156, 157,153, 159, 160:GOTO 120 

INPUT"NEW JOB TITLE";TS:GOTO120 

INPUT"tiEW BUSINESS STREET ADDRESS" ; BSS : INPUT"NEH BUSINESS 
CITY",-BC5:INPUT"NEW BUSINESS STATE CODE AND SIP CODE" ;B7,S : IN 
PUT"NEW BUSINESS PHONE" ; BPS :GOTO 120 

INPUT"NEW HOME STREET ADDRESS" ;HSS : INPUT"NEW HOME CITY";HC 
S:INPUT"NEW HOME STATE CODE AND ZIP CODE" ;HZS: INPUT"NEH HOME 
PHONE";HPS:GOT0 120 

PRIHT"SEKD CORRESPONDENCE TO: " ;TAB[25) " J > HOME":PRINT TAB( 
25) "2> 0FFICE":1NPUT"CH0ICE";HT:IF (MT=1) OR IMT-2) THEN GOT 
O 120 ELSE GOTO 154 

PRINT"MEHBERSH1P STATUS" ; TAB( 25 ) "1 > LOCAL ONLY":PFINT TAB{ 
25)"2> NATIONAL ONLY":PRINT TAB125)"3> NATIONAL AND LOCAL" :" I 
NPUT-CH01CE";M:IF(M=21 OR (M=3) THEN INPUT'MEMBEH i";MN:GOTO 
120 ELSE GOTO 120 

INP!JT"MEMBERSHIP START DATE" ; MS: GOTO 120 

INPUT"MEMBERSHIP EXPIRATION DATE" r ME: GOTO 120 

PRINT"0FF1CE HELD : " .-TAB I 25] "1> PRESIDENT" ;TAB( 25) "2> VICE 
PRESIDENT":PRINTTAB125) "3> SECRETARY" : PRINTTABI 25 ) "4> TREAStI 
RER":PRINTTAB(25r'5> COMHITTE CHAIRPERSON" : PRINTTAB 1 251 "6 > N 
ONE":INPUT"CHOICE";OH;IF|1';=OH1AND(OH<=6)GOTO120ELSEGOTO158 

PRINT"COMMITTEE ASSIGNMENTS" ;TAB ( 25 ) "1> PROGRAM' : PRINTTAB | 
251"2> SITG REPRESENTAT1VE":PRINTTAB(25)"3> PROFESSIONAL DEV 
LLOPMENT";PRINTTAB(25)"4> MEMBERSHIP" : PEINTTAB{ 25 )" 5> NONE": 
INPUT"CHO1CE":CA:IF(1<-CA)AND(CA<=51GOTO120ELSEGOTO15 9 

GOSUB 1300:GOTO 183 

CLSiGOSUB 1000;PRINT:INP[JT"DO YOU WISH TO DELETE THIS INFO 
RMATION";0S:IF QS<>"YES" AND QS<>"NO" GOTO 180 

IF QS-"NO" GOTO 120 

CLS:INPUT"MORE TRANSACTIONS" ;QS : IF OS<>"YES" AND QS<>"NO" 
THEN GOTO 183 

IF QS-"YES" THEN GOTO 20 

GOSUB 1200:IF LNS="ZZZZZ" THEN GOTO 90 ELSE GOTO 80 

GOSUB 1400 

CLS:"MOHE TRANSACTIONS" ;QS : IF Q50"YES" AND QS<1"N0" THEN 
GOTO 210 

IF QS="YES" GOSUB 1100: GOTO 30 ELSE GOTO 80 

GOSUB 14 

CL£:INPUT"MORE TRANSACTIONS" ;QS : IF QS<>"YES" AND QSO-NO" 
THEN GOTO 310 

IF Q$="YES" THEN GOSUB 1100;GOTO 300 ELSE GOTO 90 

IF HT=1 THEN HTS="HOME" ELSE MTS="OFFICE" : IF M^l THEN M$=" 
LOCAL ONLY"!GOTO 1020 

IF M=2 THEN MS="NATIONAL ONLY" ELSE M$="NATIONAL AND LOCA 
L" 

IF 0H=1 THEN OH S=" PRESIDENT" 

IF 0H=2 THEN OHS-"VICE-PRESIDENT" 

IF 0H=3 THEN 0H5="SECHETARY" 

IF OH-4 THEN OH S= "TREASURER" 

IF 0H=5 THEN 0HS="C0MMITTEE CHAIRPERSON" 

IF 0H=6 THEN OHS="NONE" 

IF CA=1 THEN CAS-"PROGRAM" 

IF CA=2 THEN CAS- "SITE REPRESENTATIVE" 

IF CA=3 THEN CA$="PROPESSIONAL DEVELOPMENT" 

IF CA=4 THEN CAS="MEMBERSHIP" 

IF CA=5 THEN CAS="NONE'' 

CLS:PR1NT NFSrMIS;LNS;TABI40)MS:PRlNTTS;TAB(401 "MEMBER #: 
";HN:PR1HT BSS ; TAB( 40 ) "LOCAL START DATE: ";MS 

PRINT BCS;", ";BZS;TAB(40)"LOCAL EXP DATE: ";ME:PRINT BPS; 
TABI40) "OFFICE: ", -OH : PRINT HSS ; TAB(40 ) "COMMITTEE : ";CAS 

PRINT HCS;", ",-HZS;TABI40) "SEND MAIL TO: ";MTS:PRINT HPS:P 
RINT: RETURN 

CLS;INPUT"WHAT IS THE LAST NAME" ;N3S: 1NPUT"WHAT IS THE FIR 
ST NAME";N1S:INPUT"WHAT IS THE MIDDLE INITIAL" ;N2S iRETURN 

INPUTI-l,LNS,HP¥,niS,TS,BS$,BCS,BaS,BPS,HSS,HCS,HZS,HPS,MT 
, M, MN , MS , ME , OH , CA : RETURN 

PRINT(-2,LNS,NFS,MIS,TS,BSS,BC5,BZS,BPS,HSS,HCS,HZS,HPS,HT 
, M, MN , MS , ME , OH ,CA : RETURN 

INPUT"JDB TITLE":T1S:IHPUT"BUSINESS STREET ADDRESS" ; BIS ■ IN 
PUT"BUSINESS CITY";B2S:INPUT'BUSINESS STATE AND ZIP";B3$:INP 
UT"BUSINESS PH0NE";B4S 

INPUT"HOME STREET ADDRESS";H1$;INPUT"H0ME CITY" ; H2S : INPUT" 
HOME STATE AND ZIP" ;H3S: INPUT"HOHB PHONE";H45 

PRINT"S£ND CORRESPONDENCE TO" ,-TAB( 25 ) "1> HOME ADDRESS"-PEI 
NT TAB(2S)"2> BUSINESS ADDRESS" : INPUT"CHOICE" ; Ml 

IF (MKM) AND 1M1021 THEN GOSUB 1500;GOTO 1410 

M3=0:M4=0:M5=0:PRINT"MEMBERSHIP STATUS "; TAB ( 25) "1> LOCAL O 
NLY":PRINT TABI25)"2> NATIONAL ONLY":PRINT TAB(25)"3> NATION 
AL AND L0CAL":INPUT"CHOICE";M2 

IF (M201) AND {M202I AND (M203) THEN GOSUB 1500:GOTO 14 
20 

IF (H2=2) OB (M2=31 INPUT"HEMBERSHIP i";M3 

IF (M2=l) OR (M2=31 1NPUT"L0CAL MEMBERSHIP START DATE |MMD 
DYY) ";M4:1NPUT"L0CAL MEMBERSHIP EXPIRATION DATE";H5 

PRINT"OFFICE HELD: " ;TAB ( 25) "1 > PRESIDENT" : PRINTTAB (25) "2> 
VICE-PRESIDENT": PRINTTAB I 25) "3> SECRETARY" : PRINTTAB | 25) "4> 
TREAS[JRER":PRINTTAB(25)"5> COMMITTEE CHAIRPERSON" : PRINTTABI 2 
5)"5> NONE":INPUT"CHOICE";0H 

IF(0H<1) OR (6<H0) GOSUB 1500:GOTO 1440 

PRINT "COMMITTEE ASSIGNHEKNT: " jTAB 125) "1> PROGRAM' : PRINTTAB 
(251"2> SfTE REPRESENTATIVE-:PRINTTAB(25)"3> PROFESSIONAL DE 
VELOPMENT";PRINTTAB(25) "4> MEMBERSHIP" :PRINTTAB( 25 ) ■5> NONE" 
:INPUT"CHOICE';AC 

IF (AC<1) OR (5<AC) THEN G0S13B 1500:GOTO 1450 

PRINT*-2,N3S,N1S,N2S,T1S,B1S,B2S,B3S,B4S,H1S,H2S,H3?,H4S,M 
1 , M2 , H3 , M4 , M5 , HO , AC i RETURN 

PRINT"****' INVALID RESPONSE — PLEASE CHECK ***••" iRETURN 
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12a 

138 
15e 

lee 

ne 
lee 
i9e 

let 



140 
151 
152 



153 
154 
155 



156 

157 
158 



160 
180 

182 

183 

164 
190 

21B 

220 
300 
318 



■ ..... Qjg^ CREATION OF fl SEQUENTIfiL FILE ****' 

' PROGRAM-ID ==> DCSF LAST MODIFIED ~> MAY 29, 1979 

CLEAR 300:CLS:INPUT"WHAT IS THE NAME Of THIS NEW MASTER fl 
LE";riS;OPEH "0",1,F1S 

CLS;INPUT"LA£T NAME" ; LNS : INPDT"FIRST NAHE";NF$: INPUT"MIDDL 
E INITIAL '';MISiirjPUT"JOB TITLE";TS 

INPUT"BUSINESS STREET ADDRESS" ;BSS : INPUT"BUSINESS CITY";BC 
S:INPUT"BUSINESS STATE AND ZIP" ;BZ? : INPUT'BUSINESS PHOtJE";BP 
S 

INPUT"HOHE STREET ADDRESS" ; HSS : INPUT-HOHE CITY" ;HCS: INPUT" 
HOME STATE AND 2IP" ;BZS : INPUT'HOHE PHONE";HPS 

PRINT"SEND CORRESPONDENCE TO: " ;TAB| 25 ) "1 > HOME ADDRESS'iPR 
INT TAB(25)"2> BUSINESS ADDRESS" ; INPl]T"CHOICE" ; HT 

IF (MTOl) AND {MT02) THEN GOSUB 1000:GOTO 50 

MN-0iMS=0!Mh:=0;PHINT"MEMBERSHIP STATUS" ; TAB( 25 ) "1> LOCAL 
NLY":PRINT TAB(25)"2> NATIONAL 0N1,Y":PR1NT TAB(25)"3> NATION 
AL AND LOCAL"!lNPUT"CHOICE";K 

IF (MOD AND (M02) AND (n<>3) THEN GOSUB 1000:GOTO 70 

IF (M=2) OR {M=3) INPUT"MEMBERSHIP #";MNS 

IF lM-1) OR |H=3) INPUT"LOCAL MEMBERSHIP START DATE IHHDD 
YY) ";HS:INPUT"LOCAL MEMBERSHIP EXPIRATION DATE'jME 

PRINT"OFFICE HELD: " ;TAB { 25) "1> PRESIDENT" : PRINT TAB(25I"2> 
VICE PRESIDENT": PRINT TAB(25}"3> SECRETARY" : PRINT TABt25)"4 
> TREASURER" :PRINT TAB(25)"5> COMMITTEE CHAIRPERSON" :PRINT T 
AB(251 "6> NONE": INPUT "CHOICE-; OH 

IF lOHOl] AND (0HO2) AND (0HO3) AND {OHOAj AND (0HO5) 
AND (0HO61 THEN OOSUB 100B:GOTO 110 

PRINT"COHMITTEE ASSIGNMENT: " ;TAB (25 j "1> PROGRAM" : PRINT TAB 
(251"2> SITE REPRESENTATIVE": PRINT TAB(25)"3> PROFESSIONAL □ 
EVELOPMENT"!PRINT TAB(25j"4> MEMBERSHIP" :PfiINT TAB12S)"5> NO 
NE":INPUT -CHOICE";CA 

IF (CAOlj AND (CA02) AND {CA03) AND (CA04) AND [CAOSl 
THEN GOSUB 1000:GOTO 130 

PRINT«1, LNS;'',";NFS;",";MIS;",";TS;",";BSS;",";BCS;",",-BZ 
S;",";BPS;",";HSS;",';HC5;",';HZS;","!HPS;",";MT;",";H;",";M 
N5 ; " , " ; MS ; ' , " ; HE ; " , " ; OH ; " , " ; CA 

PRINTilNPUT "ARE THERE MORE MEMBERS" ;QS : IF QS="YES" THEN G 
OTO 20 

IF QS<>"NO" THEN GOSUB 1000:GOTO 160 

CLOSE 1 

CLSiPRIHT'END OF PROGRAM: DCSF" :PRINT : PR1NT:PRINT:PRINT: EN 
D 
I PRINT"'**** INVALID RESPONSE ~ PLEASE CHECK YOUR ANSWER": 
RETURN 
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' '••*• DISK UPDATE OF A SEQUENTIAL FILE ••••• 

' PROGRAM-ID ==> DUSF LAST MODIFIED =-> MAY 31, 1979 

CLEAR 6a0:CLE:INPUT"WHAT IS THE NAME OF THE OLD MASTER FIL 
E";F1S:INPUT"HHAT IS THE NAME FOR THE NEW MASTER FILE"|f2S!0 
PEN"I",1,F1S:OPEN"0",2,F2S 

GOSUB 1100:IF EOF(l) THEN GOTO 300 ELSE GOSUB 1200 

IF LNE-N3S AND NFS=N1S AND MIS-N2$ THEN GOTO 100 

IF N3S<LNS THEN GOTO 200 

GOSUB 1300 

IF E0F[1) THEN GOTO 300 ELSE GOSUB 1200:GOTO 30 

GOSUB 1300:IF EOF II ) THEN GOTO 90 ELSE GOSUB 12B0: GOTO 80 

CLOSE 1:CL0SE 2 : CLS : PRINT'END OF PROGRAM: DUSF":END 

CLS:INPUT"IS THIS A DELETION" ;QS : IF (OS<>"VES") AND (QS<>" 
N0"1 THEN GOTO10fl 

IF QS="YES" THEN GOTO 180 

CLS:GOSUB 1000 : PRINT"DO YOU WISH TO CHANGE" : PRINT TAB{la)" 
1> JOB TITLE";TAB(40] "2> BUSINESS ADDRESS" iPRINT TAB(1B)"3> 
HOME ADDRESS";TABI4ai "4> HAILING ADDRESS" :PRINT TAB(10)"5> H 
EMBERSHIP STATUS";TAB140) "e) MEMBERSHIP STRT DATE" 

PRINT TABa0)"7> MEMBERSHIP EXP DATE" ;TAB(40 ) "8> OFFICE HE 
LD";PRINT TAB(10)"9> COMMITTEE ASSIGNMENT" ; TAB(40 ) "10> NOTHI 
NG ELSE" ;IHPUT"CHOICE" ;Q 

ON GOTO 151, 152, 153, 154, 155, 156, 157,158, 159, 160:GOTO 120 

INPUT"NEW JOB TITLE";T5:GOTO120 

INPUT"NEW BUSINESS STREET ADDRESS" ;BSS : INPUT'NEW BUSINESS 
CITY';BCS:INPUT"NEW BUSINESS STATE CODE AND ZIP CODE" ;BZ5i IN 
PUT"NEW BUSINESS PHONE" ; BPS :G0TO 120 

INPUT"NEW HOME STREET ADDRESS" : HSS ; INPUT"NEW HOME CITY'jHC 
S:INPUT"NEW HOME STATE CODE AND ZIP CODE" ;HZS: INPUT"NEW HOME 
PHONE";HPS:GOTO 120 

PRINT"SEND CORRESPONDENCE TO: " ;TAB( 25] "1> HOME":PRINT TAB{ 
25)"2> OFFICE":INPUT"CHOICE";MT:IF (MT=1) OR (MT=2) THEN GOT 
120 ELSE GOTO 154 

PRINT"MEMBERSHIP STATUS "; TAB ( 25 )" 1 > LOCAL ONLY":PRINT TAB( 
25)"2> NATIONAL ONLY":PRINT TAB(25)"3> NATIONAL AND LOCAL":! 
NPUT"CH0ICE";M:IF(M=2) OR (M=31 THEN INPUT"MEMBER »";MNSiGOT 

120 else goto120 

input"membership start date "; ms : goto 120 
input"membership expiration date ",- me : goto 120 

PHINT"OFFICE HELD:";TAB{25) ■1> PRESIDENT";TAB(25) "2> VICE 
PRESIDENT":PRINTTAB125)"3> SECRETARY" iPRINTTAB I 25) "4> TREASU 
PER" :PRINTTAB(25) "5> COMHITTE CHAIRPERSON" : PRINTTAB(25) "6> N 
ONE": INPUT" CHOICE"; OH: IF 1 1<-0H] AND |OH<=6jGOTO120ELSEGOTO158 

PRINT"COMHITTEE ASSIGNMENTS "; TAB ( 25 )" 1 > PROGRAM" : PRINTTAB( 
25)"2> SITE REPRESENTATIVE":PRINTTAB(25}"3> PROFESSIONAL DEV 
ELOPHENT":PRINTTAB(25) "4> MEMBERSHIP" :PRINTTAB [ 25) "5> NONE": 
INPUT-CHOICE ",-CA: IF (K-CAj AND (CA':-5)GOTO120ELSEGOTO15 9 

GOSUB 1300!GOTO 183 

CLS:GOSUB 1000: PRINT: INPUT"DO YOU WISH TO DELETE THIS INFO 
RHATION";0S:IF OS<>"YES" AND QS<>"N0" THEN GOTO 180 

IF 0S="NO" GOTO 120 

CLS:1NPUT"M0RE TRANSACTIONS" ;QS : IF 0?<>-YES" AND QS<>"NO" 
THEN GOTO 1B3 

IF QS="YES" LOC GOTO 20 

IF EOFdl THEN GOTO 90 ELSE GOSUB 1200:GOTO 80 

GOSUB 1400 

CLS:INPUT"MORE TRANSACTIONS' ;0S : IF 0?<>"YES- AND gS<>"NO" 
THEN GOTO 210 

IF QS="VES" GOSUB 1100: GOTO 30 ELSE GOTO 80 

GOSUB 14 00 

CLS:INPUT"MORE TRANSACTIONS" fQGET: IF QS<>"YES" AND QS<>"NO 
" THEN IF 310 

IF OS="YES" THEN GOSUB 1100iGOTO 30B ELSE GOTO 90 

IF MT-1 THEN MTS-"HOME" ELSE MTS="OFFICE" : IF M=l THEN MS-" 



Program continues. 




Complete your TRS-80* 

with these routines not 

found In either Level II or DOS. 




SYSTEM 
SAVERS 



by 

Tom Stibolt 



If you ever use the SYSTEM command, you can 
use this two program package. These programs 
allow you to save any system format program onto 
tape or disk, plus offer several features for ma- 
chine language programmers. 

With FLEXL, which is one of the two programs, 
you can make back-up copies of any system for- 
mat tape. Most often a cassette that you make will 
load easier than an original. Plus you can find the 
filename on any system tape because it is dis- 
played on the screen. 

Disk drive owners can use TDISK to save any 
system format tape onto disk. "Air Raid", "Editor/ 
Assembler" and other programs cannot normally 
be loaded to disk. Now TDISK allows you to save 
these programs onto disk. After DOS READY you 
will be able to simply type the filename and be up 
and running. It even loads non-contiguous tapes. 
TDISK will greatly increase the benefit of owning a 
disk drive. 

Acorn produces several other utility programs 
for the TRS-80. These include "Aterm" and "Num- 
bering" by Tom Stibolt; and "Disassembler", 
"Tape Utility" and "Disk Utility" by Roy Soltoff. All 
are available for less than $20.00. Ask for these 
and other quality Acorn programs at your local 
computer store. 

* TRS-80 is a trademark of Tandy Corp 
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LOCAL ONLY'iGOTO 1020 

IF M-2 THEN MS='NATIONAL ONLY' 



ELSE MS^'KATIOHAL AND LOCA 



1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1065 

107 5 

10B0 

1100 

1200 

1300 

1400 

1405 
1410 

141 j 

14.0 



1430 
1435 



1445 
1450 



1455 
1460 



IF OH^l THEN OHS="PRESIDENT" 
IF 0H=2 THEN OHS-"VICE-PRESIDENT° 
IF OH-^3 THEN OHg="SECBETAHY" 
IF 0H=4 THEN OHS= "TREASURER" 
IF 0H=5 THEN OHS=" CHAIRPERSON" 
IF OH-6 THEN OHS-"NONE" 
IF CA=1 THEN CAS="PROGRAM" 
IF CA=2 THEN CA?="SITE REPRESENTATIVE" 
IF CA=3 THEN CAS=" PROFESSIONAL DEVELOPMENT" 
IF CA=4 THEN CAS="HEHBERSHIP" 
IF CA=5 THEN CAS="NONE" 

CLStPRINT NFS;' ";mS!" ";LNSjTABl35)MSiPRINTTS;TAB(35) "me 
MBER »! 'jMNS:PRINT BSS;TAB [35 ) "START DATE: ";HS 

PRINT BCS;"r ";BZ5;TAB(35)*EXP DATE: ";ME:PRINT BP5;TAB(35 
)"OFFICE: ■;0H5:PRINT HSS(TfiB|35)"COHMITTEE: ";CAS 

PRINT HCS;", ' ;HZS ;TAB{35) "SEND MAIL TO; ";HTS:PRINT HPS:R 
ETUBN 

CLS:1NPUT"WHAT IS THE LAST NAME" ;N3S! INPUT'WHAT IS THE FIR 
ST NAME";N15:INPUT"WHAT IS THE MIDDLE INITIAL" ;N2S tRETURN 

INPUT#l,LNS,NFS,MT$,T5,BS5,BCS,BZS,eP$,HSS,HCS,HZS,HPS,MT, 
M , HNS , MS , ME , OH , CA ! RETURN 

PRINTtt2,LN?;",";NFS;",";HIS;",";TS;",";BSS;","!BCS;".";Ba$ 
;'',";BPS:",";HSS:","!HCS;",";HZS;",";HPS!",";MT!","!Mj",";MN 
S;",";MS;","jME;",";OH;", ";CA; RETURN 

INPUT"J0B TITLE";T1S;INPUT"BUSINESS STREET ADDRESS' ! B15 : IN 
PUT'BUSINESS CIT¥";B25:INPUT"BUSINESS STATE AND ZIP";B35:IKP 
UT"BUSINESS PH0NE";B4S 

INPUT'HOHE STREET ADDRESS" , -HIS: INPUT'HOME CITY" jH2S : INPUT" 
HOME STATE AND ZIP" ;H3S: INPtIT"HOME PH0NE";H4$ 

PRINT"SEND CORRESPONDENCE TO" ;TAB(25] "1> HOME ADDBESS":PRI 
NT TAB|25)''2> BUSINESS ADDRESS" : INPUT"CHOICE" ;H1 
IF (HlOl) AND (M102) THEN GOSUB 1500:GOTO 1410 
H3-0:H4 = 0:H5 = 0:PRINT"MEMBERSHIP STATUS" , -TAB I 25) "1> LOCAL O 
NLY":PRINT TAB(25)"2> NATIONAL ONLY":PRINT TAB[25)"3> NATION 
AL AND L0CAL":INPUT"CHOICE";H2 

IP [M201) AND (H202] AND (M2031 THEM GOSUB 1500:GOTO 14 
20 

IF {M2-2) OR [M2-3) IN PUT "MEMBERSHIP »";M3S 

IF (H2=l| OR (M2-3) INPUT'LOCAL MEMBERSHIP START DATE (MMD 
DYyr';M4:INPUT"L0CAL MEMBERSHIP EXPIRATION DATE";M5 

PRINT"OFFICE HELD: " ;TAB125) "1> PRESIDENT" : PRINTTAB(25) "2> 
VICE-PRESIDENT" :PRINTTAB( 25) "3> SECRETARY' : PRINTTAB (25) "4> 
TREASURER" :PRINTTAB(25) "5> COMMITTEE CHAIRPERSON" : PRINTTAB(2 
5)"6> N0NE":INPUT"CH0ICE";OH 

IF10H<1) OR !6<H0) GOSUB 1500:GOTO 1440 

PfiINT"COMHITTEE ASSIGNHENNT: " [TAB ( 25) "1> PROGRAM" iPHINTTAB 
(25)'2> SITE fiEPRESENTATIVE":PRINTTAB(25) "3> PROFESSIONAL DE 
VEL0PMENT":PRINTTAB(25) "4> MEMBERSHIP" :PRINTTAB125) "5> NONE" 
; INPUT"CHOICE";AC 

IF (AC<1) OR (5<AC) THEN GOSUB 1500:GOTO 1450 
PRINT* 2, N3Sr","|NlS;","!N2S;",';TlSf ",";B1S;",";B2?:",";B 
3S;",";B15;","fHlS;",";H2$;",";H3S;",";H4S;",";Ml;",";M2;"," 
jM3S;","jM4;",";M5;",";HOj","!AC:RETURN 

PRINT"***** INVALID RESPONSE — PLEASE CHECK ***••" iRETURN 
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1 

2 

3 

10 

20 
30 
40 

50 
60 



100 
110 
120 
130 
140 
160 
161 
162 
17 
180 
190 

400 



410 
5 00 
610 
520 
530 
540 
550 

56 

57 
580 
590 
600 
610 
620 
630 
640 
65^ 
666 
67e 

see 
90 e 
9ie 



■ ***** INITIALIZATION OF FINANCIAL FILE '»'** 
' PROGRAMMER: DR. ANTONIO M. LOPEZ, JR. 

' PROGRAM-ID ==> INIT LAST MODIFIED ==> MAY 15, 1979 

CLS:CLEAR 200:PRINT 'THIS PROGRAM WILL CREATE ACCOUNTS":PR 
INT'RECEIVEABLE AND PAYABLE FOR fl NEW YEAR" 

PRINT "IF ACCOUNTING PROCEDURES HAVE CHANGED" 

PRINT "YOU MAY WISH TO <BREAK> HERE AND EXAMINE THE" 

PRINT "ACCOUNT NUMBERS ~ PROGRAM LINE 900 " 

INPUT 'DO YOU WISH TO CREATE THE FMASTER FILE";Q$ 

IF OS = "YES" GOTO 100 

IF OS = "NO' GOTO 190 

PRINT "PLEASE RESPOND WITH A YES OR NO"iGOTO 50 

CLS:PRINT "'*****• CREATING FINANCIAL FILE *•*****«**" 

DEFINT A,I:DIM A(43):OPEN "R" , 1 , "FMASTER: 1" 

FOR I - 1 TO 43 

HEAD A (I ) 

AK = A[I) 

PR% = INTl [l-l)/2)+l 

SR% - I-2*(PR%-1) :GOSUB 400iGOSUB 500 

PUT 1, PR% 
NEXT I 
CLOSE 

CLS:PHINT"END OF INIT PROGRAM" lEND 

FIELD 1, {[SH»-1)*90) AS STAHTHERES,2ASAKS,4ASM1S,4ASM2S,4 
ASM3S,4ASM4S,4ASM5S,4ASH6 5,4ASM7S,4ASM8S,4ASM9S,4ASM0S,4ASMA 
S,4ASMBS,8ASQ1S,BASQ2S,8ASQ3S,8ASQ4S,BASYTS 
RETURN 

REET AK5 = MKI5{AK) 
RSET MIS - HKSS(0) 
RSET H2S - MKSS(0) 
RSET H3$ = HKS$(0) 
RSET H4S = MKSS(0) 
RSET M5S = MKSS(0) 
RSET H6S = MKSS(0) 
RSET M7S = MKSS(0) 
RSET M8? = MKSS(0) 
RSET M9S = MKSS(0) 
RSET M0S = MKS5(0) 
RSET MAS = MKSS(0) 
RSET MBS = MKSS(0) 
RSET QIS = MKDS(0) 
RSET Q2S = MKDS(0) 
RSET Q3S - HKDS(0) 
RSET Q4S = MKDS(0) 
RSET YTS = MKDS(0) 
RETURN 

. .*...* ACCOUNT NUMBERS **•«••«*****"•******•••* 
DATA 110,120,130,14 0,151,15 2,161,162,16 3,171,17 2,17 3,17 4,1 
80,190,200,210 

DATA 311,312,313,320,3 3 0,340,351,352,35 3,354,35 5,356,361,3 
62,36 3,36 4,371,37 2,37 3,37 4,37 5,381,382,390,400,410 



■ ***** UPDATE OF FINANCIAL FILES ***** 
' PROGRAMMER: DR. ANTONIO H. LOPEZ, JR. 

' PROGRAM-ID ==> UPDATE LAST MODIFIED ==> MAY 22, 1979 

CLEAR 3000:DIM D? (50) ,D% (50) ,R* (50 ) , A(50) ,AC (50) ,H( 43) :DEF 
INT K 

FOR K=l TO 43:READ H(K)iNEXT K 

CLEiIKPUT'ENTER 3 CHARACTER MONTH CODE -I.E. JANUARY ==>JA 
N ";MSiK=l 

IF K = 51 PRINT "MAXIMUM DATA ENCOUNTERED"; GOTO 1000 
CLS; INPUT'WHAT IS THE ACCOUNT NUMBER' jAC (K) ; PRINT;GOSUB 70 


INPUT "TRANSACT ION DESCRIPTION [30 CHARACTERS MAX) " jD? (K) ; P 
RINT 

INPUT'WHAT IS DATE OF TRANSACTION IMMDDYY) " 7D% (K) ; PRINT 

INPUT"WHAT IS THE CHECK/RECEIPT NUMBER" ;R* (K) : PRINT 

INPUT"WHAT IS THE AMOUNT" ;A(K) ; PRINT 

INPUT"ARE THERE MORE TRANSACTIONS" ;0S 

IF OS="YES" THEN K - K+1; GOTO 40 

IF QS="NO" THEN GOTO 1000 

PRINT "PLEASE ANSWER WITH A YES OR NO":G0T0 90 

FIELD 1, ((SR*-1)*401 AS STARTHERES, 2ASACS,30ASDSS, 2ASDTS, 
2ASRCS,4ASATS 

RETURN 

RSET ACS=MKIS(ACIKK) ) 

LSET DSS=DE[KK) 

RSET DTS=MKIS(D%[KK)) 

RSET RCE-MKIS(R%[KK) ) 

RSET ATS=MKSS(A(KK) ) 

RETURN 

FIELD 2, [ [SH%-1)*90>AS BEGINHERES,2ASAKS , 4ASM1E , 4ASM2S,4A 
SM3S,4ASM4E,4ASM5S,4ASM5S,4ASM7 5,4ASM8S,4ASM9S,4ASM0S,4ASMAS 
,4ASMBS,8AEQ1S,BASQ2S,8ASQ3S,8ASQ4S,8ASYTS 

RETURN 

RSET AKS - HKIS(A) 
RSET MIS = HKS$[M1) 
RSET K2S - HKSS[M2) 
RSET H3¥ = HKSS(H3) 
RSET M45 = MKSS(M4) 
RSET H55 = HKSS(M5) 
RSET M6S = MKSS(M6) 
RSET M7S = MKSS(M7) 
RSET M8S - HKSS(Me) 
RSET M9S = HKSS(M9) 
RSET M0S = MKSS[M0) 
RSET MAS - HKSSIMA] 
RSET MBS = HKSS(MB) 
RSET QIS = HKDS(OI) 
RSET Q2S = HKDSIQ2) 
RSET Q3S = HKD$(Q3) 
RSET Q4S = MKDS[Q4) 
RSET YTS - HKDSIYT) 
RETURN 
FOR KK=1 TO 43 

IF AC(K)=H[KK) RETURN 
NEXT KK 

PRINT"INVALID ACCOUNT NUMBER — PLEASE CHECK INPUT" 
INPUT"D0 YOU WISH TO TRY AGAIN";Q$ 
IF QS="YeS" THEN GOTO 40 
IF QS="HO" THEN K=K-1:GOTO 90 

PRINT"PLEASE ANSWER WITH A YES OR N0";GOTO 740 
A=CVI(AKS) 
H1=CVS(M1S) 
H2-CVS[H2S) 
H3=CVS[M3S] 
M4-CVS(H4S) 
H5-CVS(M5S) 
H6=CVS(M6S) 
M7=CVS(M7S) 
Ma=CVS(H8S) 
M9=CVS(M9S) 
M0=CVS(M0S) 
MA- CVS (MAS) 
MB-CVS(MBS) 

Q1=CVD(Q1S) '" ■ 

Q2=CVD(Q2S) 
03^CVD(Q3$) 
04^CVD(Q4S) 
YT-CVD(YTS) 
RETURN 

1 ****** ftcCOUNT NUMBERS ************************ 
DATA 110,120,130,140,151,152,161,162,16 3,171,17 2,17 3,17 4,1 
80,190,200,210 

920 DATA 311,312,313,320,3 3 0,34 0,351,35 2,353,35 4,35 5,356,361,3 
62,36 3,36 4,371,37 2,37 3,37 4,37 5,381,3 82,390,40 0,410 

1000 CLSilF K = THEN END ELSE PRINT"***" SORTING TRANSACTION F 

ILE •***'" 
1010 KL=K 
1020 KH - 1 

1030 IF KL - 1 THEN GOTO 1200 
FOR KK = 1 TO KL 
IF AC(KH)<AC(KK) THEN KH = KK 
NEXT KK 

IF KH - KL THEN KL=KL-1:GOTO 1020 
DS=DS[KH) :D%-D4(KH) ;R%=R%(KH) ;A-A[KH) :AC=AC(KH) 
DS(KH)=DS(KL) :D%(KH)-D*(KL) :R% (KH) ^R% [KL) :A(KH)=A[KL) ;AC(K 
H ) =AC ( KL ) 

DS[KL)=DS:D%(KL)=D%:B*(KL)-R*:A[KL)=A:AC1KL)=AC 

KL-KL-1;G0T0 1020 

PRINT:PRINT"***** WRITING TRANSACTION FILE *****" 

NS=MS+':1";0PEN "R", 1, NS 

FOR KK=1 TO K 

PR% = INT([KK-l)/6)+l 
SRt = KK-6*(PR%-1) 
GOSUB 200;GOSUB 300 
PUT 1,PR% 
NEXT KK 

PR%=INT(K/6)+l:SR%=|K+l)-6*(PR%-l) ;KK-0;AC(KK)=-1:DS(KK)=" 
DUMMY LOGICAL RECORD" ;D% (KK) =0 ;A(KK) =0:B% (KK) -0 :GOSUB 200:GO 
SUB 300!PUT 1,PR% 
CLOSE 1;CLS 



110 
120 
200 

201 
300 
310 
320 
330 
340 
350 
400 



410 
500 
510 
520 
53 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 
760 
770 
80 
810 
820 
830 



870 
871 
872 
87 3 
87 4 
87 5 
876 
877 
87 8 
87 9 
880 
890 
900 
910 



1040 
1050 
1060 
107 
1080 
1090 

1100 

1110 
1200 
1210 
1220 
123 
124B 
1250 
1260 
127B 
1280 
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Program continues. 



52 • 80 Microcomputing. April 1980 



i3ae 

1310 
1320 

1325 
1330 
1340 

1350 

1360 

137 

13S0 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1480 

1500 
1510 
1520 
1530 
1540 
1550 
1560 
157B 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1700 
1710 
1720 
1730 
17 40 
17 50 
1760 
17 7 
1780 
1800 



INPUT'DO YOU WISH A PRINTED COPY OF THE TRANSACTIONS" fQS 

IF QS="HO" THEN GOTO 1400 

IF QS<>"YES" THEN PRINT "PLEASE ANSWER WITH A YES OR NO":G 
OTO 1300 

CLS:PRIHT"«*'** LISTING TRANSACTION FILE *»*«»" 

LPRINT TAB(30) "TRANSACTION FILE — ";MS;LPRINT" " 

LPRINT"ACC0UNT#";TAB(15) "DESCRIPTION" ; TAB (45 ) "DATE" ; TAB ( 55 
) 'CHK/REC#" ; " AMOUNT" 

LPBINT" "iLPRINT" " 

FOR KL - 1 TO K 

LPRINT TAB(3jAC|KL) ;TAB (101 D$ (KL) ;TAB (44) D* (KL) ; 
TAB[57)R%IKL) ;" ";A(KL) 

NEXT KX, 

CLS:PRINT"***" UPDATING FMASTER FILE **"*" 

0PEN''R",2, "i'HASTER' 

FOR KL-I TO K 

FOR KH"-! TO 43 

IF AC(KL)-M(K1]) THEN GOTO 1480 
NEXT KH 

PRINT"ILLEGAL TRANACTION ACCOUNT NUMBER " : END 

PB%=INT( [KH-1)/21+1:SR%=KH-2*(PR%-1) :GOEUB 400iGET 2,PR*:G 
OSUB 800 

IF MS="JAN" THEN Ml-Ml+A (KL) : GOTO 1780 

IF MS:-"FEB" THEN M2=M2+A (KL) :GOTO 1700 

IF MS="HAR" THEN M3=M3+A(KL) :GOTO 1700 

IF HS--APR" THEN M4=M4+A(KL) :GOTO 1700 

IF MS="MAY" THEN M5-M5+A(KL1 :GOT0 1700 

IF MS="JUN" THEN M6-H6+A(KL1 :GOTO 1700 

IF MS-"JUL" then M7=H7+A(KL1 :GOTO 1700 

IF MS=''AUG" THEN H8-MB+A(KL1 :GOT0 1700 

IF MS="SEP" then M9=H9+A(KL) :G0T0 1700 

IF MS="0CT" then M0=Me+A(KL) :G0T0 1700 

IF M$:^"NOV" THEN MA-MA+A(KLi :GOTO 1700 

IF MS^"DEC" THEN MB=MB+A(KL) : GOTO 1700 

PR1NT"1LLEGAL transaction file NAME ENCOUNTERED" 

,PBINT">>>>>>>>PLEASE ENTER 3 CHARACTER MONTH CODE" 

INPUT"FOR EXAMPLE FOB JANUARY YOU ENTER JAN",-M5 

GOTO 15 

Q1=H1+M2+M3 

Q2-M4+M5+H6 

03=H7+M8+H9 . " ' 

Q4=H0+MA+MB 

YT=Q1 +02+23 +04 

GOSUB 500 

PUT 2,PR% 

NEXT KL ■ 

CLOSE 2 

CLS: PKINT"LNU OF UPDATE PROGRAM" 



Program Listing 8. 



110 

120 
130 

140 
150 

160 

17 E 

lae 
i9e 

206 

2ie 



510 
520 
530 
540 
550 
560 
570 
580 

5 90 
600 
610 
620 
630 
640 
650 
660 
670 

6 80 
900 
910 



I ».*.• REVIEW OF MASTER FINANCIAL FILE •**** 
' PROGRAMMER: DR. ANTONIO H. LOPEZ, JR. 

' PROGRAM-ID ==> REVIEWM LAST MODIFIED ^^ > MAY 15, 1979 

CLSlCLEAR 1000:PRINT "THIS PROGRAM ALLOWS YOU TO REVIEW TH 
E" 

PRINT "FINANCIAL STATUS OF AN ACCOUNT" 

DEFINT A, I: DIM A(43)! OPEN "R" , 1 , "FHASTER" : SR%=1 ;GOSUB 40 


FOR I = 1 TO 43:READ A(I);NEXT I 

CLS: INPUT "WHAT IS THE ACCOUNT NUMBER" ;AK 

FOR 1 = 1 TO 43 

IF AK = A(Ij GOTO 130 
NEXT I 

PRINT "••'•••* INVALID ACCOUNT NUMBER ********" 
INPUT "DO YOU WISH TO CONTINUE";QS 
IF OS - "YES" GOTO 40 
IF QS = "NO" GOTO 210 

PRINT "PLEASE RESPOND WITH A YES OR NO":GOTO 90 
PR%=INT( (I-l)/2)+l:SR%=I-2*(PR*-l) :GOSUB 400:GET 1,PR%:G0S 
UB 500 

CLS:PRINT TAB( 20) "ACCOUNT NUMBEH";A 

PRINT " JANUARY", -TAB (10) Ml :PRINT"FEBRUARY";TAB (101 M2;PRINT" 
MARCH"TAB(I0)M3;TAB(301 "1ST QUARTER"; 01 

PRINT"APRIL'';TAB{10)M4:PRINT"MAY";TAB(10)M5:PRINT"JUNE";TA 
B(10)M6;TAB(301 "2ND 0UAHTEH";Q2 

PRINT-JULY" ;TABa0)H7:PBINT"AUGUST"; TAB ( 101 M8:PRINT"EEPTEM 
BER";TAB(10)H9;TAB(30) "3RD QUARTER"; 03 

PRINT "OCTOBER" ;TAE(10)M0;PRINT"NOVEMBER";TAB(ia)HA:PRINT"D 
ECEMBER" ; TAB 1 1 ) MB ; TAB (301" 4TH QUARTER" ; Q4 
PRINT TAB(40)"YTD TOTAL" jYTiPRINT 
GOTO 90 

CLOSE:CLS:PRINT"END OF PROGRAM: REVIEWM":END 
FIELD 1, ((KR%-11*90) AS STARTHERES,2ASAS,4A£M15,4ASH2S,4A 
SH3S,4ASM4S,4ASM5S,4ASM6S,4ASM7S,4ASME5,4ASM9 5,4ASH0S,4ASMA5 
,4ASMBS,8ASQlS,eASQ2S,8ASQ3S,aASQ4S,8ASYTS 
RETURN 
A = CVKASl 
Ml = CVS(MIS) 
M2 = CVS(K2S1 
M3 = CVS(M3S1 
M4 = CVS(M4S) 
M5 = CVS(M5S) 
M6 = CVS(M651 
M7 = CVS(M7S) 
MH = CVS(H8S) 
M9 = CVE(H9S1 
M0 = CVS(M0S1 
MA = CVS(HAS1 
MB = CVS(MBS1 
Ql = CVD(QIS) 
Q2 = CVD(Q2S) 
Q3 = CVD(Q35) 
Q4 - CVD(Q4S1 
YT = CVDIYTSl 
RETURN 

1 *»*»** ACCOUNT NUMBERS ***•***'•«»*"*••••***'• 
DATA 110,120,130,140,151,152,161,162,163,171,17 2,17 3,17 4,1 
80,190,200,210 

DATA 311,312,313,320,3 3 0,340,351,352,35 3,35 4,35 5,356,361,3 
6 2,363,36 4,371,37 2,37 3,37 4,37 5,3 81,382,390,4 0,410 



Program Listing 9. 



130 

135 
140 
150 

160 
17 



180 
190 
200 
210 



245 
250 

26 

27 

280 
281 
282 
310 
315 
320 
330 
400 



I t-ttt-t REVIEW OF TRANSACTION FILES «**•« 
' PROGRAMMER: DR. ANTONIO M. LOPEZ, JR. 

' PROGRAM-ID --> REVIEW! LAST MODIFIED ==> MAY 22, 1979 
CLS:CLEAR 1000 : PRINT'THIS PROGRAM ALLOWS YOU TO REVIEW THE 
TRANSACTION FILE FOR A PARTICULAR MONTH" 

DEFINT A,I:1NPUT"ENTEB 3 CHARACTER MONTH C0DE";MS 
OPEN "R",1,MS:AL=L0F(11 

INPUT"DO YOU WISH A PRINTED COPY OF THE TRANSACTIONS" ;QS 
IF QS="NO" THEN GOTO 210 

IF QS<>"yES'' THEN PRINT"PLEASE ANSWER WITH A YES OR NO'iGO 
TO 40 

CLS:PRINT"***«* LISTING TRANSACTION FILE «*•«*" 
PRINT:PBINT"TURN ON LINE PRINTER ~ CHECK PAPER" 
FOR 1=1 TO 5000!NEXT 1 

LPRINT TAB(30r'TRANSACTION FILE — ";HS:LPBINT" " 
LPRINT "ACCOUNTI"; TAB (15) "DESCRIPTION"! TAB (45) "DATE': TAB (5 
5) "CHK/REC#";" AMOUNT" 

LPRINT" " : LPRINT" ' 
FOR AH=1T0AL 

GET 1,AR 
FOR AA=1T06 

GOSUB400 

IF CVI(AC$)— 1 THEN GOTO 200 

LPRINT TAB(3)CVI(ACS) ;TAB (101 DSS; TAB( 44) 

CVKDTSl ,-TAB(57)CVI(RC$l ; " "; 

CVS(AT5) 
NEXT AA 
NEXT AR 

CLS:PRINT"END OF PROGRAM: REVIEWT" :CLOEE:END 
FOR AR=1 TO AL:CLS:PRINT TAB( 20) "TRANSACTION PILE 



'jMSiPRI 



PRINT"ACCOUNT(t";TAB(101 "DESCRIPTION" ; TAB(331 "DATE" ;TAB(40) 

"CHK/RES#" : TAB ( 50 ) "AMOUNT" 

GET 9,AR 
FOR AA=1T06 

GOSUB 400 

IF CVI(ACS)=-1 THEN GOTO 315 
PRINT TAB(l)CVIIACS) ,-TAB(10)DSS 
PRINT TAB(31)CVI(DT5) ,-TAB ( 41 ) CVI (GC5) ; 
PRINT TAB(501CVS(AT51 
NEXT AA 
INPUT"HIT ■:ENTER> TO CONTINUE" ;QS 
NEXT AR 
GOTO 200 

FIELD 1, ( (AA-11*40) AS STARTHERES,2AS ACS, 30ASDSS, 2ASDTS, 2 
ASRCS, 4 ASATS; RETURN 



Program Listing 10. 




Adventure 
International 




Proudly Announces 

GALACTIC EMPIRE 

by Doug Carlston 

ForTheTRS-80 Level 2 16K) 



Beyond all Star Trek programs! This real time 
simulation pits you and your puny fleet against 
an entire galaxy. Traveling at sublight speeds, 
assisted by your executive officers you must 
carve out a Galactic Empire. As system after 
system is conquered you'll add to your growing 
fleet, but be careful to plan far enough in ad- 
vance or ships and supplies may not reach you 
in time and populations may revolt! You'll have 
1000 years to accomplish your mission, but be- 
warned, few mortals are able to outlive a millen- 
ium! 

Available now for $14.95 from the company 
that brought you Adventures . Write for free 
flyer or ask for it at your local computer dealer. 

Adventure International ^g? 
Box 3435 
Longwood, Fl 32750 
Visa/MC orders, call (305) 862-6917 



^'Reader Service— see page 147 
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HARDWARE 



Turn your display inside out, 

and let your eyes benefit from the results. 



Reverse Video 



Dennis Kitsz 
Roxbury, VT 05669 



If it's so easy, why didn't it 
come witli the TRS-80? A good 
question, indeed. Let's Just say 
that the 80 monitor is— uh— a 
bit weak in some respects. But 
take heart (and a soldering iron), 
the time is at hand to read black 
letters on a white background. 
By now, all of you've read 
Faster! Faster! the high speed 
modification which appeared in 
the February issue of 80 Micro- 
computing. The principle is 
much the same, and the entire 
port wiring is identical— in fact, 
that is the wiring which will be 
used for reverse video (and is 
used in the lowercase modifica- 



tion I have installed on my ma- 
chine). So here are the details. 

Integrated Circuits 

Get these integrated circuits: 
a 74LS368 and a 74LS74; plus a 
74LS02 if you haven't done the 
high-speed mod. Get some wire 
wrap or other thin wire, a 1.5K 
resistor and gather up your sol- 
dering skills. Open up the 
TRS-80 and locate the following 
ICs: Z22, Z26, Z27, Z30, Z52, Z53, 
Z54, Z59. 

If you've installed my high- 
speed modification, skip the 
next three paragraphs. 

Prepare the 74LS02 by bend- 
ing all the leads except 7 and 14 
so that they are parallel with the 
body of the integrated circuit. 




Example of reverse video from the upcoming Game of Life article by 
Dennis Kitz. 



Find Z53. Seat the 74LS02 di- 
rectly atop Z53, with the notch 
facing in the same direction, 
and solder pins 7 and 14 of the 
top ICto pins 7 and 14 of the one 
below. These are the power and 
ground pins of the 74LS02, 
which we will call "ZGATE". 

Find Z52. Run a wire from pin 
6 of Z52 to pins 2 and 3 of ZGATE 
and solder. Now locate Z54. Run 
and solder a wire from pin 8 of 
this IC to pin 1 1 of ZGATE. Next 
run a short wire between pins 1 
and 12 of ZGATE. The previous 
three steps decode eight ad- 
dress lines into FE hex (254 
decimal), which is the output 
port used for all my modifica- 
tions. 

Now it is necessary to con- 
nect the output signal into 
place. Locate Z22; pin 3 has the 
OUT signal. Run a wire from this 
pin to pin 5 of ZGATE. Now sol- 
der together pin 8, 9 and 13 of 
ZGATE. Finally run a short wire 
between pin 6 and pin 10 of 
ZGATE. The remaining pin (pin 4) 
contains a fully decoded output 
signal that goes high whenever 
the instruction "OUT 254 . . ." is 
executed. 

Hi high-speeders. Welcome 
back to the text. We're out of 
spare flip-flops on the CPU 
board itself, so we have to sup- 
ply one, the 74LS74. Located 
Z26. Prepare the 74LS74 by 
bending all leads except 7 and 
14 so that they are parallel to the 
body of the IC. Now seat the 
74LS74 upon Z26, and solder 
down pins 7 and 14. Again, these 
are the power pins; now we will 



call this piggybacked IC 
"ZFLIP", 

Run a wire from pin 4 of 
ZGATE to pin 11 of ZFLIP. Find 
Z59, which has convenient data 
lines. Run a wire from pin 5 (Data 
line 1) of Z59 to pin 12 of ZFLIP. 
Now run short wires connecting 
pins 10, 13 and 14 of ZFLIP. 
These steps get the OUT 254 
signal to ZFLIP, get data to it 
and enable it, respectively. The. 
instruction "OUT 254,2" will flip 
it; "OUT 254,0" will flop it. Now 
we have to give the flips and 
flops some work to do. 

Pick up the 74LS368. Again, 
bend the leads parallel to the 
body, except pins 8 and 16, the 
power pins. Seat this IC atop 
Z27, and solder down pins 8 and 
16. Now that this has power, we 
will call itZCOLOR. 

Reverse Video 

To get reverse video, the prin- 
ciple is simple: merely reverse 
the times the video beam is on 
(producing white dots) or off 
(producing black "undots"). We 
will make it produce black dots 
for letters and white "undots" 
for the background. 

Locate Z30 and Z52. Find pin 1 
of Z30, which is connected via a 
circuit board trace on the under- 
side of the board to pins 6 and 7 
of Z52. Cut the trace near Z30. 
The computer's video informa- 
tion signal comes out of pin 1 of 
Z30. It is now. free. 

Run a wire between this pin 
(pini of Z30) and pins 2 and 14 of 
ZCOLOR. ZCOLOR is an invert- 
ing buffer, which is ideal ... if 
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FROM THE ORIGINATOR 
OF THE TRS-80 PROJECT 




CORPORATION 

HEADQUARTERS FOR PASCAL 

And Other High Level Languages 



PASCAL COMPILER 

Pascal/MT" is designed to run under CP/M. 
It provides an elficient development cycle 
plus efficiently executing object programs us- 
ing a highly structured language so fewer 
programming errors are made, Pascal/MT 
has extensions to standard Pascal- 

Features: 

'Compiler executes only in 32K. 
'Direct I/O manipulation. 
'Logical Functions allow bit manipulation. 
'Assembly languages interface. 
'Object programs execute ten times taster than 
P-code system. 

'hcludes real time symbolic debugger. 
'Accurate 16 digit BCD business arithmetic. 

Package Includes System Diskette and in- 
struction Book (Requires CP/M) 

price $2500'> 

Same package (TRS-DOS version) 

price $300™ 

Same package (S-100 CPM version with 8" 
diskette) price SIOO" 

HIGHLY RECOMMENDED PASCAL MANUALS 

"Pascal Users Manual and Report" 

Price, Manual Only S9" 

UCSD Reference Manual 

Price, Manual Only S25"" 

"Problem Solving Using Pascal," the 

beginner's book for UCSD Pascal 

Pnce, Manual Only $14'* 

"Programming in Pascal" 

Price, Manual Only $14'' 

"Pascal Primer" 

Price, Manual Only $17" 



Ue* 



V(\ce 



TEXTWRITER II ^ 

Exclusively from FMG V-O^^^ 

A text formatting program that prints files cre- 
ated by an editing program. Contracts, per- 
sonalized form letters and other documents 
can be printed from a stored library of stan- 
dard paragraphs. 

Price $75"'^ 

Price (Manual only) $25"° 

TEXTWRITER III 



CP/M® OPERATING 

New 1.5 Version SYSTEM 

Includes RS-232 and I/O Byte implementa- 
tion. Editor, Assembler, Debugger and Utili- 
ties for 8080 and 280 Systems. 

Package Includes: 

'CP/M System Disl(ette S'A" 

'CP/M Features and facilities Manual 

'CP/M Editor's Manual 

'CPM Assembler Manual 

'CPM Debugger Manual 

'CP/M Interface Guide /Requires 16K and \ 

PRICE $150°" (one drive mm. ) 

Price, set of 5 (Manuals only) $25"" 

Update for 1.4 version owners, 

new disc supplied $20"" 

FORTRAN ,o«Tp"« 

Comparable to compilers on large main 
frames and minicomputers. All of ANSI stan- 
dard FORTRAN X 3.9-1966 is included except 
COMPLEX data type. Therefore, users may 
take advantage of the many applications pro- 
grams already written in FORTRAN. 
Features: 

■ FORTRAN Compiler 

■ Macro Assembler (280) 

• Linker 

■ Library 

• Lib Manager (Not in TRS-DOS version) 

FORTRAN, TRS-CP/M version price. , ,5200"" 
FORTRAN, TRS-DOS version price .. $150"" 
Price for each (Manual only) $25"" 

TRS-80 COMMUNICATOR 

New RS232 Communication Program that 
allows your TRS-80 to transmit or receive 
programs and data files. Also makes the TRS- 
80 into a remote terminal. Requires Radio 
Shack RS232, 

TRS-CP/M version $25"" 

TRS-DOS version $35"° 



Call or write for complete information 



Alf features of Textwriter II plus ability to com- 
puter create Indexes and Table of Contents. 
Price $125"" 



□ 




CORPORATION 

(817) 294-2510 
P.0.Box16363(80)' Fort Worth, Texas 76133 

High Level Languages for the TRS-80 
BASIC • FORTRAN • COBOL • PASCAL 

CP/M IS a registered irademark of Digital Researcti Corp • TRS-SO is a registereil trademark of Radio Shack. 



TRS-COBOL-80 

FMG's Microsoft COBOL brings the world's 
most widely used computer programming 
language to the TRS-80 user. FMG (JOBOL-80 
is comparable to COBOL systems found on 
minicomputers and large mainframes. Conse- 
quently, it greatly enhances the usefulness of 
microcomputers because it gives users ac- 
cess to the incredibly large numbers of pro- 
grams already written In COBOL. Because 
COBOL-80 is a standard, COBOL programs 
written on other computers may be run easily 
on the TRS-80, 

FMG TRS-COBOL-80 is based on the 1974 
ANSI standard. It combines all Level 1 fea- 
tures and the most useful Level 2 options for 
the "Nucleus" and for sequential Relative and 
Indexing file handling facilities. 

The FMG TRS-COBOL-80 system includes a 
compiler for translating source code into re- 
locatable object code (which, incidentally, is 
compatible with the object code of our FOR- 
TRAN-80 compiler and MACRO-80 assem- 
bler), and a routine system for running the 
program by interpreting the object code at 
execution time. It also includes screen han- 
dling capabilities for easy use of interaction. 

Requires 48K, CP/M and 2 Mini Disk Drives. 

Price $750"" 

UCSD PASCAL 

The powerful, general purpose language sys- 
tem, originally developed for large, complex 
system, is now available from FMG for your 
TRS-80. This new FMG/UCSD Pascal System 
greatly increases the value and capability of 
the TRS-80. 

Package Includes: 

'Operating System 'Library 

'Screen Editor 'Pascal Compiler 

'280 Macro 'Utilities and System 

Assembler Reference Book 

/Requires 48K, \ 
Pnce $150"" [2 drive System j 

available without Macro Assembler, 
Linker and Library (not for compiling 

programs) price $100°" 

For recommended Pascal manuals, refer 
to 'PASCAL COMPILER" listing. 
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SCALE COMPRESSED 
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ZZ6 BELOW 
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ROM SOCKETS 










Z45 TO Z5I- 




Z60 TO ENO- 



SOLDER WIRE TO THIS PIN 
I SOLDER THIS PIN TO IC BELOW 



PLATED THROUGH HOLE 
(TO Z52 PINS 6 AND 7) 



t t 



t t t 



t t t t t t t t 



SCALE COMPRESSED 



Fig. 2 Parts Layout 



t t 



we invert the signal once — pres- 
to!— reverse video. Two inver- 
sions return it to the original 
condition, normal video. Now 
connect pins3and4ofZCOLOR 
together. This performs the tvi/o 
inversions. Pin 5 is the normal 
video output and pin 13 is now 
the reverse video output. Con- 
nect pins 5 and 13 together. 

The next step requires good 
eyesight. Find the broken trace 
out of Z30, and follow it over the 
break to a hole on the circuit 



board that is plated througti. 
With the IC side of the board fac- 
ing up, it is directly at the end of 
the row defined by Z29 and Z30. 
Make sure you have the right 
one, because this is where the 
video input signal goes. 

Run a wire from this plated- 
through hole on the upper side 
of the board to pins 5 and 13 of 
ZCOLOR. Both normal and re- 
verse video are now being fed in- 
to pins 6 and 7 of Z52, where the 
video signal is mixed with sync 




w MON/roft.. 



information and sent out to the 
monitor. 

The next step is to enable the 
two stales. Run a wire from pin 8 
of ZFLIP to pin 15 of ZCOLOR. 
Run a wire from pin 9 of ZFLIP to 
pin 1 of ZCOLOR. Upon power- 
up, the flip-flop enables the nor- 
mal video condition. 

By commanding "OUT 254,1" 
or "OUT 254,0", date line 1 goes 
low; the output of ZFLIP also 
goes low (pin 8), enabling the 
other half of ZCOLOR (pin 15), 



UIDEO DOT INPUT 



7^^^ 



ZCOLOR 
74LS568 



:>E> - I ' I 't ^^^t^-^jp 



VIDEO MIXING 



BREAK FOIL TRACE 



Fig. 1 Schematic 



which sends through the reverse 
video signal. Notice that both 
outputs of ZFLIP can never be 
on at the same time, so either 
normal or reverse will be active, 
never both. 

Three gales of ZCOLOR re- 
main unused and should be tied 
off. Run wires connecting pins 
6, 10 and 12 to ground (pin 8). 
One flip-flop of ZFLI P is also tied 
off by connecting pin 1 , 2, 3 and 
4 to ground (pin 7). I use this half 
of the flip-flop, by the way, for 
controlling lowercase. 

Test Your Work 

This completes the work in- 
side the TRS-80 for the reverse 
video mod. Before going into the 
monitor (stay calm— only one 
resistor is added), you should 
test the reverse video circuit. 
Double check that all wires are 
connected properly, and make 
certain that there are no solder 
balls or splashes and that con- 
nections are secure. 

Put everything back together, 
turn on the monitor and power 
up the computer. The screen 
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should appear as normal. Key 
in: OUT 254,0 and ENTER. The 
screen should reverse, with 
blackish letters on a squirrel 
grey-white background. Not too 
promising, you say? Well, yes, 
that is exactly what I thought, so 
I dipped into the monitor to 
brighten things up. 

Okay, turn everything off 
again. Use a hex nut driver to 
remove the screws on the back 
of the video monitor. Easy. Not 
much inside, is there? $200, you 
think regretfully... Enough 
remorse. Find the plug-in circuit 
card that, if this were a TV, 



would probably be bringing in 
Saturday Night Live. 

Locate resistor R14. The pres- 
ent value should be 3.3K Ohms 
(orange-orange-red-silver or 
gold). We have to bring that 
value down to about 1K. Get a 
1.5KOhm resistor (brown-green- 
red-silver or gold), and, like the 
ICs earlier, piggyback it right on 
top of R14. That's it. Everything 
back together. Power up, and 
from now on, text should be eas- 
ier to read. For me at least, 
fatigue has dropped consider- 
ably. I can sit in front of the 
machine twice as iong. ■ 



NOTE THE FIRST; Graphics may squirm about on ttie screen, and letters may 
show some signs deformation. Another fine monitor design. Ya gotta live with it or 
get a new fancier monitor. 

NOTE THE SECOND, to you high. speed folks. For wiring simplicity, the data 
lines are not decoded fully, so you iiave to learn some of the inter-relationships in 
the OUT statement, Tliis is binary syndrome, 
STATEfVlENT DATA 1 DATA 2 VIDEO 

OUT 254,0 REV 

OUT 264,1 1 REV 

OUT 254,2 1 NORtvIL 

OUT 254,3 1 1 NORML 



SPEED 

HI 
LO 
HI 
LO 



Binary Syndrome 



DATA BASE MANAGER IDM-IV $69 

You can use it to maintain a data base & produce lepoits withoul any 
programming. Define tile parameters & report formats on-line. Features key 
ranaom access, fast multi-key sort, tield arith., label generator, audit log. 
MOD-II version with more ttian 50 enhancements $199, 

ACCOUNTS RECEIVABLE ACCT-III $69 

One or more drives. Order entry calculates sales tax, shipping, amount tor 
multiple items. Credit checking, aging, sales analysis, invoices, statements 
and reports. As opposed to most other A/R, ours can be used by doctors, 
store managers, etc. MOD-II version $149. 

WORD PROCESSOR 16K S39. 32K $49 MOD-II $49. 

First word processor specifically designed tor the TRS-80 that uses disk 
storage for text. Written in BASIC, No special hardware and text limit Use 
for letters, manuals & reports, 32K version features upper/lower case 
withoul hardware change and multiple input text files, 

MAILING LIST advanced MAIL-V $59. 

fast sort by any field. Multiple labels and reports. 4-digil selection code, 
new zip code ext.. screen input, live keyboard, powerful report writer. MOD-II 
$99. 

INVENTORY INV-V $99, 

9-digit alphanumeric key tor fast key random access. Reports include order 
info, performance summary, etc. Calculate EOO. Powerful report writer 
MOD-II $149 

All programs are on-line, interactive, random access, virtually bug tree, 
documented and delivered on disks, MOD-I requires 32K, OOS We challenge 
all software vendors to offer low cost manuals so you can compare and 
avoid those high-priced undocumented, on-memory' programs. Send S5 for 
a MOO-I manual and $10 for MOD-II, 

MOD-II programs are extensively modified, guaranteed to run with 1 year 
newsletter I updates. 10% off for ordering more than 1 MOO-II programs. 

MICRO ARCHITECT ^'^ 
96 Dothan St., Arlington, MA 02174 



Now! The book TRS-80 owners 
have been waiting for! 
Everything you need to know for 
maximum enjoyment of your 
TRS-80 



"The book is OUTSTANDING and Is perfect for all LEVEL 
II owners. It is geared toward the beginner, but does 
contain a wealth of information for more advanced 
programmers. TRS-80 BASIC teaches all of the BASIC 
commands through an enjoyable step-by-step 
approach . . .TRS-80 BASIC is the best thing to happen to 
LEVEL II owners!" -TRS-80 Monthly News Magazine 



TRS-80 BASIC 
A Self-Teaching 
Guide 

Bob Albrecht, Don Inman, & 
Ramon Zamora 




Packed with games, graphics, and 
practical applications, this eagerly 
awaited guide leads you step by step to 
maximum use and enjoyment of your 
new TRS-80. 

336 pp. April 1980 (0 471 06466-1) 



Get the best in computer Instruction from these Wiiey Self-Teaching Guides 



.95 paper 



INTRODUCTION TO DATA 
PROCESSING, 2nd Ed. 

Martin L. Harris in consultation with 

Nancy B, Stern 

1979 (0 47104657-4) 304 pp. $5,95 

ANS COBOL, 2nd Ed. 

Ruth Ashley in consultation with 

Nancy B, Stern 

1979 (0 47105136-5) 265 pp. $5.95 

BASIC FOR HOME COMPUTERS 

Bob Atbrecht, LeRoy Finkel, & Jerald 

R. Brown 

1978 (0 471 03204-2) 336 pp. $7.95 

BASIC, 2nd Ed. 

Bob Albrecht, LeRoy Finkel, & Jerald 

R. Brown 

1978 (0 47103500-9) 325 pp. $7.95 



BACKGROUND MATH FOR 
A COMPUTER WORLD 

Ruth Ashley in consultation with 

Nancy B. Stern. 

1973 (047103506-8) 286 pp. $5.95 

JOB CONTROL LANGUAGE 

Ruth Ashley & Judi N. Fernandez 
1978 (0 471 03205-0) 161 pp, $5 95 

FORTRAN IV 

Jehosua Friedmann, Philip Greenberg 

& Alan ivl.Hotf berg 

1975 (0 47128082-8) 452 pp. $6.95 



FLOWCHARTING 

A Tool for Understanding 
Computer Logic 

Nancy B. Stern 

1975 (0 47182331-7) 341pp. $6.95 

STRUCTURED COBOL 

Ruth Ashley 

April 1980 (0 471 05362-7) 

320 pp, $8.95 

ATARI BASIC 

Bob Albrecht. LeRoy Finkel, & Jerald 
R. Brown 



1979 (0 47106496-3) 333 pp. $5.95 

Look for them at your favorite book shop or computer store. 

JOHN WILEY & SONS, Inc., 605 Third Avenue, New York, NY 10016 
In Canada: 22 Worcester Road, Rexdale, Ontario. Pnces subject to change without notice 

0-7609 
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HARDWARE 




Hugo Jackson 
31 Laurie Court 
Kanata. Ontario 
Canada K2L1S2 



At the time I bought my 
TRS-80 nothing annoyed 
me more than laying out over 
$300 for a video monitor that 
couldn't even pick up Mork & 
Mindy betvifeen For-Next loops. 
(American readers can take 
some comfort in the tact that 
they are paying substantially 
less for the same equipment.) 

A close examination of the 
Radio Shack video monitor re- 
vealed a stripped down black 
and white television, minus 
antenna and channel changer, I 
could have bought the same set 
for about $100 less than I had to 
pay for the TRS-80 television 
with half the parts missing. 



While I can appreciate that 
the Radio Shack video monitor 
is, generally, going to give far 
superior results than any home- 
brew setup, a summer of lug- 
ging the intrinsically fragile vid- 
eo monitor back and forth from 
an island cottage had become a 
tiresome and unnerving experi- 
ence. 

Groping for Change 

To a man of means the solu- 
tion would have been obvious, 
simply buy an extra monitor for 
the cottage. But v/hen you con- 
sider that I was forced to 6(avj 
loans discreetly from my son's 
piggy bank and grope wildly 
under chair cushions for loose 
change, to make my original pur- 
chase, you can appreciate my 
inability to raise the capital re- 
quired for such an expenditure. 

The answer seemed to be 
hooking into an inexpensive 
black and white television. 



Mork 
SL Mindy 
Monitor 



But to compound my prob- 
lem, my knowledge of electronic 
hardware is negligible. While I 
have soldered a few resistors in 
my time and have put together 
the odd patch cord, in a pinch I 
w/ouid seriously doubt my ability 
to correctly apply Ohm's law. 

I tried to console myself with 
the thought that the mysticai 
device I needed was bound to be 
offered in a computer magazine 
and I spent many unsuccessful 
evenings sifting through back 
issues expecting to see an ad- 
vertisement promising the solu- 
tion to my problem. 

I understand now that a num- 
ber of products are available 
that would have been suitable, 
but being the electronics whizz 
that I am— manufacturers take 
note— unless the advertisement 
had read:"Hugo Jackson, this is 
what you need to hook up your 
TRS-80 to an ordinary televi- 
sion" I would have passed it by 
rather than take the financial 
risk that it was not what I 
wanted. 

So, for some time my widely 
uninformed, yet (I like to think) 
creative mind, began to wander 
fruitlessly in search of a solu- 
tion. 



What Goes Up, Must be Pong 

The impetus for my original 
experiment was triggered by an 
event not unlike the one which 
led Newton to hypothesize 
about gravity, except my apple 
was an old video pong game, 
suddenly dislodged from its pre- 
carious perch on a bookshelf 
that crashed down on my head. 

I'd like to report to you that 
the result was a thoughtful syn- 
thesis, both immediate and 
earth shattering but such was 
not the case. 

It was not until I had kicked 
the game across the room and 
found myself picking up its 
pieces did all the ones in my 
head begin to fit together. 

There in my hands was the lit- 
tle metal box that the game's in- 
structions had been so insistent 
that I attach to the antenna ter- 
minals of my television set. 

"Surely," I reasoned, "all 
that's required is to hook up the 
video output from my computer 
to the input of this box and voila, 
any television set can be an ex- 
tension of my computer." 

Having purchased one of 
those fancy DIN plug con- 
nectors and some hookup wire 
from Radio Shack I confidently 
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headed off to the cottage the 
next day with only my keyboard 
and tape recorder. 

My wife is patient and under- 
standing, but having absorbed 
the devastating results of my at- 
tempts to fix her toaster, refrig- 
erator and washing machine 
(which necessitated the pur- 
chase of a new toaster, refriger- 
ator and washing machine) she 
was not overjoyed to see me 
salivating over our cottage tele- 
vision with a screwdriver in one 
hand and soldering iron in the 
other. 

I assured her that all I wanted 
to do was adjust the fine tuning 
and though she didn't believe 
me, she said no more. 

It took only fifteen minutes to 
hook it up and, as ! stared at the 
blank screen, to realize my logic 
wasn't all that air-tight. The 
result of my experiment scared 
me; I hadn't made such an error 
in logic since I had tried fixing 
the washing machine. 

1 quickly removed all the 
gadgetry from the television and 
turned it on saying a silent 
prayer. Words cannot express 
my relief when neither the televi- 
sion nor the computer began un- 
explainably to spin dry and 
seemed unaffected by my half- 
crazed inventiveness. 

Fred: Friend to Proton 

Fortunately for the computer, 
television and myself, deliver- 
ance was a short time coming. 
My friend Fred (properly tutored 
in the mysterious way of pro- 
tons and electrons), explained 
to me that the little metal box 
from the video game was noth- 
ing more than a capacitor— or 
did he say resistor?— whose 
sole purpose was to equalize 
the Impedance between the vid- 
eo game's output and what a 
television set uses. 

What I had been trying to do 
was feed my television what is 
called 'raw' video, something for 
which it has no appetite. As 
Fred explained it, I had two op- 
tions. The first was to go inside 
of the television and feed it the 
raw video at a point in its cir- 
cuitry where it is able to digest 
it. 

The second option was to 
construct an interface which 
converts raw video from the 



computer to an RF (radio fre- 
quency) signal that the tele- 
vision would accept like any 
other channel and re-convert it 
to raw video for its own output. 

The first option was discard- 
ed immediately; I had learned 
my lesson and was convinced 
that the FCC had me specifical- 
ly in mind when they stamped 
the back panel of my set: "CAU- 
TION. To prevent electric shock 
DO NOT REMOVE COVER. Re- 
fer servicing to QUALIFIED ser- 
vice personnel." 

But the second proposal put 
me no closer to the solution. Al- 
though Fred is blessed with the 
technical know-how required to 
assemble such an interface, his 
exasperation with my electronic 
inability has resulted in his firm 
refusal to help me in any proj- 
ects I undertake. 

Feeling quite despondent and 
blaming, equally. Radio Shack, 
Fred and the dog for my predica- 
ment, I found myself leafing 
through the Radio Shack cata- 
logue, my thoughts having 
turned to selling the computer 
and buying a new stereo with 
the proceeds. It was then I saw 
—in a rather obscure location 
—Radio Shack's "TV RF Modu- 
lator Interface," It was in their 
"Project Boards" section. 

A previous encounter with 
one of these "project boards" 
had left me bitter. I once in- 
vested $4 for a printed circuit 
board and instructions for a 
digital alarm, which — as it 
turned out— cost an additional 
thirty-five dollars in parts to 



make work. I wrote the $4 off 
and bought an off-the-shelf 
model for $15.95. 

Accustomed to disappoint- 
ment, and suspicious of the 
Modulator's description, which 
appeared to me to be very vague 
and non-specific. I kept my 
pulse under control, as I ran to 
the car and drove off to the 
nearest Radio Shack. 

) Learn to Dance 

I was jubilant when the store 
manager graciously allowed me 
to inspect the parts list prior to 
my purchase. There I spied on 
page two of the project board's 
instructions a section entitled 
"TRS-80 Adaptation." I oscil- 
lated between tears of joy and 
verbal outbursts of "It'll work. 
It'll work!" 

Oblivious to the time and re- 
fusing all offers of aid, I danced 
around the store checking off 
the parts list, loading my arms 
with all the necessary resistors 
and capacitors. It was a full hour 
after the regular closing time 
when I finally let the manager go 
home. 

All totaled the project board 
and additional parts cost sixty- 
five dollars and fifty-one cents 
(taxes included) and though the 
package was intimidating I be- 
gan construction immediately. 

Roughly six and one-half 
hours later I emerged from my 
room with that great mountain 
of parts reduced to the contents 
of a 6 X 4 X 2-inch box. With an 
understandable degree of trepi- 
dation I connected all the cables 
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Photo 1: Showing the resolution of the 32 character per line format 
on a 24" black and white portable television. 



in the manner prescribed and 
could barely deal with my sur- 
prise when the thing worked the 
first time. 

Let's be honest. You're just as 
surprised that it worked too. 
From my experience I can state 
with certainty that even those of 
you with a severely limited intel- 
ligence and a manual dexterity 
that might fail to seal an en- 
velope on the first try will meet 
with equal success. 

Obfuscation Defied! 

But don't tell Tandy Corpora- 
tion, Radio Shack has long been 
justly criticized for untrained 
and unknowledgeable store 
personnel, but now it appears 
that the company is allowing at 
least one of them to moonlight 
as an instruction manual writer. 

Apart from the stilted, awk- 
ward narrative, the step se- 
quence is confusing and hard to 
follow. One typographical error 
requested that I solder the 0.00 
uf capacitor in place. What is 
really sad is that I spent a good 
ten minutes looking for it (the in- 
structions should read the 100 
uf capacitor). 

Despite Radio Shack's appar- 
ent desire to make it otherwise, 
the kit is easy to assemble, as 
long as common sense prevails. 

A final note: The instructions 
do warn that you might not en- 
joy good legibility in the 64 char- 
acters/line format, but as you 
can see from Photo 1 the 32 
characters/line format yields ac- 
ceptable results. 

The TV I used for this picture 
was a 24" black and white 
Hitachi portable. Experimenting 
with other smaller sets has re- 
sulted in clarity even in the 64 
characters/line mode. 

The fact remains that I have 
yet to find any set that gives the 
quality of character definition 
comparable to the TRS-80 moni- 
tor and my annoyance with hav- 
ing to buy it in the first place has 
somewhat abated. 

AM in all, the project interface 
board is an excellent way to give 
portability to your computer. 
And, if you're still saving nickels 
and dimes for your first system, 
the economy of the interface 
over the TRS-80 monitor may 
well put a computer within your 
grasp. ■ 
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GAME 



A mini universe complete with blacl< tioies. 



Ball Box 




James D. Lewis, Pres. 
Micro Logic Corp. 
Box 174 
Hackensack NJ 07602 



Ball Box graphics. 



Have you ever closely 
watched a video pong 
game in its dormant phase in be- 
tween gannes? Ttie path taken 
by the little sliding "Squot" 
(square dot) may change as it 



journeys about its limited 
universe. In most versions, 
Squot's creativity will dissipate 
as it runs out of new paths and 
starts its tour of its environment 
on a previously taken route. 

A non-interactive game called 
Ball Box is based on the exciting 
adventures of Squot. However, 
to make things a bit more in- 
teresting than Pong Squot, 
Squot's universe includes three 
different types of objects that 
add a little scenery: boxes, door- 
ways and slides. Boxes are rec- 
tangles of various dimensions. 
Doorways are openings within a 





Program listing. 


4330 
4149 
4400 


IF POINTfJ.M-i = 1 THEN 4tLiy 

NEKT J 

FOP J = T TO LI 




1 title 


REri t-r ^^■r*4^'f.*' + + + *»!'f + ***t**: + -+:|-'t ■***:!■ ■(■ + 


4410 


IF POINKR. .r> = 1 THEN 4280 




leip 


REn * * 


4420 


IF POlNTi^S.J' = 1 THEN 4209 




1O1'0 


PEM * fJFinE' ■BRLL BO: ■ -t: 


4430 


NEXT .1 




1321 


PEn -i^ * 


4600 


FOR J = P TO S 




io:.Li 


REM i PURPOSE- SinULRTIOrJ OF ft t 


4601 


SETU, T> 




1848 


REM * MINI UtJIVERSE * 


4602 


SET(J.. U> 




1050 


REM * eV: JFinES LEWI? * 


4603 


NEXT J 




1066 


REM * MICRO LOGIC- CORP, * 


4709 


FOR J - T TO U 




1970 


REM * EiO;-: 174 + 


4701 


SETtR, J,-| 




1080 


REM ■*■ HfiCKENSHCK. NJ * 


4702 


SET(S, .r> 




1090 


REM * 07^02 * 


4703 


NEXT J 




1091 


REM * FOR- TRS-SO LEVEL I * 


4S00 


NEXT I 




1098 


REM * * 


4900 


PRINT AT 64*7+10i 




1099 


REM *-** + *+:*: f 4: *.++**!.+ :!!* + .* + *.**.+ *■(-+** ^f. 


4910 


PRINT "TRS-80 --BflLL BOX' BV MICRO 


LOGIC CORP", 


£800 


CLS 


4920 


PRINT HT 64*^3+10; 




2010 


PRINT fiT 65- - ' 


4930 


PRINT " "; 




2009 


FOR I = TO 127 


4940 


PRINT HT 64*11+28; 




3001 


SETa.. 0> 


4350 


PRINT ■' "i 




imz 


SETa.47^ 


5000 


X - RN['(128-4> + 2 




3002 


NEXT i 


5001 


V = RNDa28-4'' + 2 




3010 


FOP I = TO 47 


5005 


C = 




3011 


SETCO. r^ 


5010 


H = -^1 




3012 


SET<127.. I J 


5011 


B = +1 




3013 


NEXT I 


5020 


IF POINT(X, V> = 1 THEN 5000 




3040 


FOR I = 20 TO 34 


■ , ■ 5100 

^ 5116 


RESET'iX.. V) 




3050 


5£Ta.20' 


X = X + Fi 




3051 


3ET(L24.> 


5111 


V = V + B 




3060 


NEXT I 


5120 


IF POINT(X.. V> = 1 THEN 6000 




4000 


FOP I = 1 TO S 


5130 


SETi^X, V.' 




4100 


L = 30 


5140 


C = C + 1 




4110 


M = L / 1. 6 


5150 


IF C < 1500 THEN 5100 




4200 


P = RNDi;i2S-L-4'' -^ 3 


5160 


GOTO 2009 




4210 


S = R + RN[HL> + 1 


6000 


IF POINT I'X.V-B) = THEN B = -B : 


GOTO 5110 


4^20 


T = RN[>M8-M-4'| -^ 3 


6010 


IF POINT(X-fl.. V' = THEN fl = -fl - 


GOTO 5110 


42Z0 


M = T -t- RNCXM) -t- 1 


6020 


fi = -ft 




4319 


FOR J = R TO 5 


6030 


B - -B 




4320 


IF POINKJ. TJ = 1 THEN 4200 


6040 


GOTO 5110 
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rectangle that allow Squot to 
enter the interior of a rectangle, 
which is called a room. Slides 
are closely spaced parallel lines 
that allow Squot to travel hori- 
zontally or vertically rather than 
diagonally. 

Squot simply travels in 
straight lines bouncing off any 
objects in its way at the natural 
45 degree angle. But don't let 
these simple rules make Squot's 
adventures seem dull. Try it and 
see. 

There are a few theories 
about Squot's trips. One exam- 
ple is: If Squot enters a room via 
a doorway, it will eventually 
leave the room (or find a black 
hole). See if you can prove this 
or find other theories. 

Squot's universe is designed 
as follows. 

1. Universe limits are drawn 
by placing a rectangle at the 
outer edge of the CRT. 

2. The main slide is drawn 
across the center of the 
universe. 

3. Next, random size and 
shape boxes are scattered 



about the universe without 
overlapping, although they may 
touch. Two boxes that are near 
each other can create a slide. 

4. Then food for Squot is 
sprinkled along the main slide. 
Note that Squot will eat any 
characters in its path. 

5. Finally, doorways are cut 
into some of the boxes to create 
rooms for Squot to explore. 

Squot is then placed at a ran- 
dom point in Its universe and 
nudged to move in one of the 
four diagonal directions. After 
Squot has had the time to get to 
know its surroundings, it is sud- 
denly surprised to find itself 
through a black hole into anoth- 
er universe! 

The program listing is written 
in Level I TRS-80 BASIC. We will 
be glad to send you a tape with 
both Level I and Level II versions 
if you do not want to key It in by 
hand. Included with the tape 
and instructions is a more com- 
plete Squot language diction- 
ary. Send $4.90 to Micro Logic 
Corp., Box 174, Hackensack NJ 
07602. ■ 



TRS-80 (Level II) 

STOP PLAYING GAMES apple 

OTHERS 






Calcjiate odds on HORSE RACES wilti ANY COMPUTER 
using BASIC. 

SCIENTIFICALLY DERIVED SYSTEM (eally works Ttiis 
syslem was wriilen and used by compuler expels and is 
now being made available to home compuler owners Tins 
method is based or storing data from a large njmPer of 
races on a high speed large scale computer 23 factors 
taken from ilie "Daily Racing Form ' were then analyzed by the computet to see liow ihey In- 
fluenced tace resjits From ttiese 23 taciois. ten were found to be ttie most i/ital in determining 
winners NUMERICAL PROBABILITIES ol each of these 10 laclors were then computed and this 
forms the basis ol this REVOLUTIONARY NEW PROGRAM 
I SIMPLE TO USE Obtain "Daily Racing Form"' the day before the races and answer the 10 ques- 
tions about each horse Rjn the program and your computer will print out the odds lor all horses in 
each race COMPUTER fflWER giues you the advantage' 
I YOU GET 1) Tf?S-flO (Level 11) Cassette 

2] Listing of BASIC program lor use with any computer 

3} Instructions on how lo get the needed data from Ihe "Daily Racing Form' 

4| Tips on using the odds generated by the program 

5) Sample lorm to simplify entering data for each race 



MAIL COUPON OR CALL TODAY 

3G COMPANY, INC. DEPT. 80 <^205 (503)357-9889 

RT. 3, BOX 28A, GASTON, OR 97119 

Yes. I want to use my computer for FUN and PROFIT Please send me programs 

at J19.95 Bach. ^g 

Enclosed is '" check or money order ■ Master Charge ! Visa VV 



Card No 

NAME 

ADDRESS _ 
CITY 



Exp date 



. STATE _ 



START USING YOUR COMPUTER FOR 

FUN and PROFIT! 



(^ 



RONDURE COMPANY 



^191 



252? BUTLER ST 

HALLAS, TEXAS 7b23h 

214-6304621 



the compulrer room 



SPECIAL 

Printer for your 
Microcomputer 



I . 



« 



GETERMINET 
300 PRINTER 

Pin feed — 9" paper 



• 80 Prmt positions 

• Receive only 

• ASCII code 

• RS-332 interface 

• 30 CPS 

• Upoei S lowercase 

• snipping wt 75« 
Stiipping containers $15.00. 

(used) 
(good working condition) 



Will run on serial RS232 port of 
most micros including TRS-80. 



$450.00 



WE HAVE FLAT-PACK 
ACOUSTIC 



Modem 
pickup 




I9^f*ei*t» 



$19 



50 



USED FANS 





NEW 

POWER 

SUPPLY 

S25.00 

/ at 3 Amp 
__ / at 6 Amp 
-12V at 3 Amp 



Muffin-8.00 
Sprite -4.00 




USED 

POWER 

SUPPLY 

$15.00 

5V at 12 Amp 
16V at 6 Amp 
6V at 2 Amp 




ASCII Keyboard 

(used) 
with enclosure 



SALE $15.00 



MICRO SWITCH KEYBOARD 

USED BUT LOOKS VERY NICE 




^^S^S««!*%w*j»S««ffl«iiS!K«w>(K^^ 



ASC W 



$40.00 

(With Print) 



USED 

OMNITEK 



ORIG. 
ONLY 
95.00 



ORDERING INFORMATION: 

We sfiip the same day we receive a certified check or money order. 
Texas residents add 5% sales tax. Please call if you have a question. 
Write for our CATALOG of many parts, terminals, printers, etc. 
All items subject to auailabitity. Your money returned if we are 
out of stock. 



SHIPPING iNFORMATION: 

Modems: $2.50 each; Key Boards $3.50, Power Supply $5.00. 

Large items & Parts: Specify Freight or Air Freight Collect, 

Foreign Orders; Add appropriate freight or postage. 

We now take Master Charge and Visa orders. Specify full number, 

bank number and expiration date. 



v'Header Service — see page 147 
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UTILITY 



Find out how to convert 

your Level II object tapes to Level I CLOADable format. 



Level II to Level I 



Mike Wolf 

Wolf and Associates 

P.O. Box 8073 

La Crescenta CA 91214 



'hose of you who have Level 
1 TRS-SOs and do your own 



assembly language program- 
ming are probably bugged by 
two things: your completed as- 
sembly language programs can- 
not be loaded w/ith the CLOAD 
command; loading at the higher, 
500 baud rate increases your 
load error rate (sometimes very 
significantly). 







Program Listing. 




MttO 


L£VEL'2 ro LBJEL-l ASSENELT UVCUACE COfHSlON ROfinC 




«H20 








MS) 


(RITTDI BY UrZ UCLT. IK Z-80 ASSOOLY UWOil^ | 




KM 








ms 


IHIS mWTIIC UIU. tBWJtRT C&ECT TAPES PSOKJCEn 




MOM 


BY TIC RADIO SHflK flSSE«El£F TO LB£L-1 FORWT 




MO?) 


50 THAT THET C«( BE LOADED WITH nc ■CLOAO" 




wm 


anvm OF LRG.-1 BASIC. iWt ASSEnBLt UVJGUMX 




m<xi 


PROGSAiWR lUSIHE EITt£R A L£IEL-1 OR lEUEL-2 




l)«91 


HACWtc) uiu. rcFiNiraY need ixis p(fli»w if he 




H492 


OR St€ WISHES TQ FROHJCE PMERWB FOR LEVEL-I 




»073 


custhers. 




(4094 








OMW 








wm 






TfU 


ma 


OK 


7ECW 


mi 


OOIIO Cl 


SME. EDU 


0F46H JftOUIINE TO IMP (BtGRY TG TAPE 


ore? 


M125C 


rON QM 


0FE9H fROiriME TO TUW ON MSSETTE 


tm 


«130 S 


'M EQU 


SE40H iROUTM FD SC« KEYBOAfS 


7EC+31C37E 


»I40 II 


JP LD 


SPtI-1 JIWTIALIZE stack HERE-l 


7EC7 3Ea 


0013 


Lli 


Ai20H ILQAB fl-KEG Uliil flS:iI BLANK 


TWf imx 


OOIM 


LD 


lErSCOOH i ST(*T OF liIKO BJFFER 


7ECC21FT3F 


00170 


LD 


rt.F3FFFH ; END OF VlttO SUFFER 


TECf aCBTF 


DO 180 


CUL 


5ETBU. iCL£« SOSffl 


rm 2MB7F 


com 


LD 


ILi(ffiCl) i FfilKT "UJ^" 


7m 22)41 


0O2O0 


LD 


(3C00H)iH_ 


TEie 3MII7F 


00210 


LD 


ll.i(ASC2) 


Jm 22t23C 


00220 


LD 


(3C02H).HL 


THE 01943C 


00230 


LD 


BC.3CS4H i SET OJRSQf: POSITION 


7EE1 EMU844 09244 


U) 


(40<iSKIrBC 


7EE5CIW7F 


00250 


C«i 


Ilf 4 ; READ LOU AMIiESS 


7EE8 225B7F 


0C2» 


LD 


(LOWI.rt. i STORE IN LOCATION "LOW" 


TEE 2Mf7F 


00270 


LIi 


!1.,(ASC31 i PRINT 'ttl^' 


TtEE 22tflX 


002B0 


LD 


(3C40H)-HL 


TtFl 2A517F 


00290 


L[i 


HL.ffisa; 


Mi 22423C 


00300 


U) 


(3C42H),(t. 


7H7 01M3C 


O0310 


LD 


BCt3C44H i SfT OKSOf: FljilTIOW 


TEFfl EW3ABW MKO 


LD 


(4468H)rDC 


TEflCIlAETF 


0033O 


IMX 


:m t fm> high Aoasss 


mi 225!7F 


003M 


LD 


(MIGHItHL • STOKE 11 IN "HIGH" 


7F04 2A537F 


0O350 


LIl 


ti_,(fiSC5) ; Pf:WT -ffER^' 


7FII7 22«3C 


00360 


LD 


(JCMHIiHL 


7F«fi 2fl557F 


00370 


LD 


(t.(ASC6) 


7F0D2282X 


00380 


Ui 


(3C32HI-!l, 


7F18 (18«C 


O0J90 


LD 


BCfJCS4H iSET CIKSIK fOSlTiON 


7F13 EIH3&844 OMO 


LD 


(404aHlFBC 



To load assembly language 
programs, you first load the 
SYSTEM tape (w/hich emulates 
the SYSTEM mode of Level 2 
BASIC) at 250 baud using the 
CLOAD command, and then re- 
set the volume leveis and load 
your program at 500 baud. This 
is hassle enough, but if you get 
the ominous "C" in the upper 
right-hand corner of the screen 
(meaning checksum error), then 
you must go all the way back 
and reload the SYSTEM tape 
again. This finally bugged me 
enough so that I did something 
about it: I wrote a program that 
converts Level 2 assembly lan- 
guage tapes to Level 1 format. 

Program Features 

The program can copy any of 
the binary tapes produced by 
your assembler to 250 baud, 
Level I format (meaning that you 
can share your assembly lan- 
guage software with friends that 
don't have Level II or the 
SYSTEM tape. It also means 
that you won't have to use the 
SYSTEM tape anymore to load 
your programs.) It copies Level II 
format assembly language 
tapes over to Level I format, so 
that you can load them with 
CLOAD command. 

The program is structured so 
that multiple copies are easily 
made and further, resides in 
"high core" (from 7EC4H to 
7FFFH). This leaves the maxi- 
mum amount of memory avail- 



able for your program. 

An assembly-language 
source listing of the program 
(named "DUMP") is shown in 
the Program Listing. If you as- 
semble the program using the 
WE option, the listing will halt 
at an error, allowing you to note 
it. I also set the NS option (no 
symbol table), as the symbol 
table will scroll the error sum- 
mary at the end of the listing off 
the screen. (All this is unnec- 
essary if you have a line printer, 
which I don't.) The command 
looks like this: A DUMP/WE/NS. 

This will assemble the pro- 
gram with the file name DUMP. 
If you get errors, check your 
listing carefully against the Pro- 
gram Listing. If it has assembled 
without error, it wil! print READY 
CASSETTE. Load a fresh cas- 
sette, hit ENTER and the assem- 
bler will dump the program, in 
binary form, onto your tape. 

Converting Assembler/Editor 

Now, as an example, let's use 
the program to make a 250 baud. 
Level 1 format version of the As- 
sembler/Editor, that we can load 
with the CLOAD command of 
Level 1 BASIC, First, you must 
load the SYSTEM tape; this will 
print its prompt symbol *, Now 
put the Level 2 program cassette 
that you want to convert into the 
recorder (in this example, the 
Assembler/Editor tape). Put the 
recorder into play and type in 
the file name (in this case, 
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1^17 



realsoft7:^P'^oGRAMSTORE 

4 200 Wisconsin AveNW POSox9609 Washington D. C. 20016 



Can you hear 
your TRS-80? 

Add sound to your computer 



Soundware 



by CAP Electronics 

Though sound is not normally 
present on the TRS-80, you can add 
it by attaching a speaker-amplifier 
to the AUX cassette cable. Just as 
the computer generates sounds for 
the recording of programs on the 
cassette recorder, with the right 
software you can generate a variety 
of sounds in your programs. 

' TRS-60 IS a lra^erT>3[k of TFindv Cnro 



This cassette contains three 
programs. These are Basic programs 
which POKE a machine language 
subroutine into high memory. The 
first program demonstrates possible 
sounds like bird chirps, sirens, 
chipmunks, bounces, bombs, music 
and more. The second program lets 
you experiment with the sound 
routine to make your own sound 
effects. And the third will allow 
you to add the sound routine to 
your own programs. 

Let your TRS-80 sing! 
Cassette $14.95 
Cassette w/ speaker-amp $29.95 



BestofCLOAD Batter Up!! 



from CLOAD Magazine 

Several programs are published 
each month in CLOAD magazine. The 
best 9 programs from the first six 
issues are now available on one 
cassette and it includes printed 
listings of each program. Now you 
can run FLAGS, YTM, SAND, KNIGHT, 

POOL , Y=mX+b , BREAK , PIKBALL & 

JUKEBOX. For Level 1 or II. 
$9.95 



Mail File 



from Galactic Software 

A professional mailing list 
program requires thorough 
documentation and support by the 
publisher. Galactic Software 
provides 30 pages of documentation 
in a three ring hinder and updates 
to registered owners. 

The program will sort over 600 
records on a single diskette in 
seconds! Not minutes. Not hours. 
Retrieval is in either alphabetic 
or zip code order plus other 
criteria. Labels are printed in 
either standard or unique user 
defined label formats. 

Each record consists of name, 
address , phone , and category codes . 
With the proper codes, thousands of 
sublists are possible. And, 
editing is simple, 

A complete package on disk for 
$99.00. 
For TRS-80 Model II $199.00 




Language Teacher 

by Cindy and Andrew Bartorillo 
Learn a foreign language with the 
aid of your computer . This 
advanced, language teaching program 
contains in excess of 500 phrases, 
800 word vocabulary and 1600 verb 
conjugation forms. Switch between 
the foreign language to English and 
English to the foreign language . 
Print multiple choice question and 
answer test. So complete it had to 
be put on disk and requires 32k of 
memory. The choice is yours. 
FRENCH $19,95 ITALIAN $19.95 
GERMAN $19.95 SPANISH $19.95 



by Karl Savon from Hayden 

Start the baseball season now! 
This two player game lets you 
and a friend pitch and bat. In the 
game the pitcher decides when to 
release the ball. Then the batter 
decides when and how to swing at 
the pitch. You actually see the 
pitcher winding up and throwing , 
the pitch sailing in towards the 
batter , and the batter swinging . 
If there is a hit, the display 
shows the fielder trying to catch 
it. If it gets by the fielder, the 
advancing base runners are 
displayed. And the game scoreboard 
keeps track of the vital 
statistics . 

No peanuts included. $10.95. 




Wordo 



by K Pfeiffer from Micro-Fantastic 
Challenging word game where you try 
to determine one of the over a 
thousand words. One or two 
players. $14. 95 

Atlantis & Enchanted 

by Greg Hassett from Mad Hatter 
Two new Adventures. Discover the , 
lost world of Atlantis or the i 
mysteries of the Isle. i 

Atlantis. $12.95 | 

Enchanted Isle. $12,95 i 

Air Mail Pilot 

from Instant Software [ 

Fly into the early days of aviation ( 

history. With only 26 gallons of [ 

fuel you attempt to land in Chicago [ 

after leaving far off Columbus, i 

Ohio. $7.95 1 



Editor/Assembler PLUS 



by Chamberlin and Yates from Microsoft 

The "PLUS" in assembly language 
programming has arrived. If you have 
reached the limits of editor/assembler 
or were always a little awed by 
assembly, then Microsoft' s version is 
for you. You not only get the features 
found in their Radio Shack version, but 
also included are the debugging features 
of TBUG and more. This will make your 
programming, editing and debugging 
easier, more efficient and more 
enjoyable. 

The 80 page reference manual describes 
all the features. These include the 
macro facility, assembly directly into 
memory, ootid tional assembly, the 
addi tonal expression evaluators, 
automatic origin, alphabetic symbol 
table and the quash command. Additional 
editor commands and the new debugger are 
also fully explained. 

For 16k tape system $29.95 

Disk based system to be announced. 

PRINT to LPRINT 

from Cottage Software 

Ever want to change every PRINT to 
LPRINT? Or vice versa? This machine 
language utility will modify any program 
in seconds. Make full use of your 
computer. $8.95 



MLUPl 



from Disco-Tech 

Six machine language routines with 
complete and thorough documentation . 
Add both keyboard debounce and repeat, 
upward scrolling, and downward 
scrolling. The formatted input routine 
provides specified field length, screen 
location and data input. The shift and 
delete, and the shift and insert 
routines add even greater editing 
capability to the TRS-80. $24,95 

BASIC-IP 

from Small System Software 

This program provides full Level I 
BASIC capablity in any Level II, 16k 
TRS-30. Plus it adds the printing 
commands of LPRINT and LLIST so you can 
now list your programs and control your 
printer from Level I BASIC. Two new 
commands, LPRINT ON and LPRINT OFF allow 
you to print anything that is displayed 
on the screen. Using only 4k of RAM, 
you have 12k for your Level I programs. 
Any Level I BASIC program or data tape 
may be used without conversion. All 
commands and abbreviations supported, 
$19.95 
DDDuar^nDnoDaDnaaoDDnDuaDnDDnDCiDnDDGaacnD 

] THE PROGRAM STORE 

] /""^♦r^N, '^^OO Wisconsin Ave NW 
J //1\A PO Box 9609 Dept K '7 
] t /^ I N» Washington, D,C. 20016 



Dr. Chips 



from The Software Association 
The fascinating program based on 
the famous "Eliza" and "Doctor" 
programs . Simply talk with Or , 
Chips who will immediately analyze 
your sentences and talk back to 
you. Though not to be taken too 
seriously. Dr. Chips makes good 
conversation. $14.95 



YES please 


send 


me 


th 


sse 


TRS-80 programs; 


title 








price 














name : 










postage 
total: 


^ 


■\ 


00 


address: 


















city, state 
S code 



ncheck payable to The Program 



OMASTERCHARGE 
DVISA 

card number; 

signature : 



mc bank code: 
exp date: 
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OUR PRODUCTS WILL ADD A NEW 
DIMENSION TO YOUR TRS-80'" 

IMPORTANT: ALl our products are: 
-fully assembled, tested and guaraQteed 
-supplied with their own power supply 
-shipped with all necessary cables & connectors 
-used with Level II BASIC in and out command 

EXPflnDPBUS $80 

Now you can hook up to 5 accessories to the TRS-80 
Bus, Can be chained if niore than 5 are needed. 
Not a loose l)oard' 1 

inT6RFflCER2 $85 

16 channel I/O module, 8 inputs, 8 outputs, 2 relays, 
2 opto-tsolated inputs Very easy to use with BASIC, 
Extensive user's manual mcluded. Sold worldwide for 
over a year. 2 




BLIPPO 



15 tones 
3 octaves 



The only low cost true synthesizer. Usea BASIC. 
Generates its own tones and does not tie up the TRS-80. 
Up to 10 notes per second. BuUt-tn power supply and 
speaker. Now It's easy to add sound to any program. 3 

nnflLOG 8o $112 

8 channel ANALOG TO DIGITAL converter. Anything 
that can be electrically measured can be interfaced to 
your TRS-80 - voltage, current, temperature, pres- 
sure, light level, .... No aaserrJjly language needed. 4 



Dnc 80 



94 



DIGITAL TO ANALOG module. 8 Bit 5%accura.v. 
Latest technology. Use to synthesize wave forn,s, 
program power supply, control motor speed or light 
levels. ... 5 

TO ORDER: Send check or M.O. . Add $3 for S & H. 
PHONE ORDERS: (212) 296 59l6 M.y.kfi ■^do t«v 

Alpha Product Co. 85-71 79tli St. Woodhaven NY 11421 



TP6ftO" itotrodemortionandyCorp 

flLPHfl product compony 

86-71, 79th ST., WOODHAVEN, N.Y. 11421 (212) 296-5916 

enclose 50e P&H 
1 would like information on 12 3 4 5 6 



Name (print) 



Address 
City^_ 



State 



.Zip. 



EDTASM), then hit ENTER. 
SYSTEM loads the program, and 
when done, will type an *. 

Now put your DUMP tape into 
the recorder as you did with the 
Assembler/Editor tape and type: 
DUMP (ENTER). SYSTEM loads 
the DUMP program. 

When it's through and it 
prompts you with an *, you must 
type /(ENTER) to execute DUMP. 
This is because DUMP was 
assembled with the immediate 
start option (the start address 
immediately followed the END 
statement). 

The first thing DUMP does is 
clear the screen and type out 
LO = to which you must re- 
spond with the hexadecimal ad- 
dress where dumping is to start 
(in this case, 41FEH). Then the 
program types HI = to which 
you must respond with the hex 
address where dumping is to 
stop (in this case 6800H). The 
program next types XFR = to 
which you must respond with 
the hex address where execu- 
tion is to begin (in this case, 
468AH). When the program 
types R?, and waits for you to 
press ENTER, load a fresh cas- 
sette and begin recording. 

The program will not print any 
non-hexadecimal character that 
is typed (a non-hexadecimal 
character is one that is not the 
digit 0-9 or the letter A-F). If you 
make an error typing, just type 
the correct four digits in over 
again; the program ignores any 
but the last four digits typed, 
before the enter key is pressed. 

'After you have pressed 
ENTER in response to R?, the 
selected area of memory is 
dumped onto your cassette. You 
are now the proud owner of a 
250 baud version of the Assem- 
bler/Editor, that you can load 
with the CLOAD command of 
Level 1 BASIC. This can be done 
with any Level 2 assembly lan- 
guage tape. Just replace the 
Assembler tape in the example 
given above with your own. 
You'll need to know the lowest 
address in memory used by the 
program (LO); the highest ad- 
dress it uses (HI); and the entry 
point (starting address) of the 
program (XFR). 

Since DUMP loops back to the 
beginning question L0= after 
completion, you can make mul- 



tiple copies by simply repeating 
the process. 

Programming Details 

The main routine named 
DUMP originates at 7EC4H and 
initializes a stack at 7EC3H. 
DUMP clears the screen by call- 
ing the subroutine SETBLK. 
SETBLK is a general purpose 
routine that initializes a block of 
memory to a constant. To clear 
the screen ASCII code for blank 
must be put into the video buffer 
(located at memory locations 
3G00H to 3FFFH). SETBLK ex- 
pects to find the number that it- 
is to store in memory to be In the 
A-register; it expects the low 
memory address to be in the DE 
register, and the high memory 
address In the HL register- 
Accordingly, DUMP puts the 
ASCII code for blank (20H) in 
the A-register, the lower address 
of the video buffer (3C00H) in 
the DE register, and the upper 
address (3FFFH) in the HL 
register, before calling SETBLK. 
DUMP then prints out LO = on 
the screen and calls a routine 
(INP4) that reads a four digit hex 
number from the keyboard. The 
number is converted to hexa- 
decimal from ASCII, and re- 
turned In the HL register. DUMP 
then stores this in a temporary 
location, prints out Hl = , calls 
INP4 as before, and so on until 
the three necessary addresses 
have been read in from the key- 
board and stored in temporary 
locations. 

When the transfer address is 
read in XFRE =, then the DUMP 
program must set up the ad- 
dress to which control must 
pass after loading. It does this 
by putting the transfer address 
in the locations 41FEH, 41FFH. 
This is the top of the stack that 
BASIC uses, and is the location 
used by the return instruction 
CLOAD will use when It Is 
through. If these locations are 
altered by the loading process 
(for example by loading into 
them) then when loading is 
through, control will not pass 
back to BASIC, but Instead to 
the location pointed to by 
41FEH,41FFH. For this reason, 
the low address that you type 
must be equal to or less than 
41FEH. If not, control will pass 
back to BASIC after loading, 
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7F17CIi«7F 


WHO 


£01 


Ilf4 


i READ START ADIftESS 


TFWTD 


004a 


U) 


AfL 


STORE IT M 4IFE- 41FF. 


7FIB 32FE41 


004311 


m 


(4IFEH).fl 


ni£7Z 


<IOt40 


LD 


AfH 




/TIF 32FF4! 


I»4» 


LH 


(41FFKi,A 


7F22 2A577F 


004«0 


LD 


Hi(flSC7» ; PRiMT 'R'" 


7R5 22C03C 


00470 


LD 


(3CC0Hi,H. 


Trail 1C2X 


00480 


LD 


BCf3CC2H 




7F2B nnym oom 


LD 


(406aH)iK 


TFT CD4MB 


005OO*£r 


CflX 


SC« 


i SOW ttltlGWQ 


7F32CA2F7F 


00510 


JP 


Z.KEr 


; LOOP IF NO K£Y fftSitiE 


7F35FEI!D 


OOS20 


Cf 


0£H 


i 13 IT S CAfiftlAGE RE'URM 


7F37L2a/F 


00^ 


■S' 


(CiHY 


WOi LOOP 


TFKCttWF 


OOW 


cm 


CTON 


YESf URN ON CfiSSFTTE 


7F3D2A5«7F 


O0550 


m 


ll_i(LOUI 


i SET UP LOU AND HISH DUnP 


7F« HfJNfTf fl0560 


LD 


lEittUGH) i AD0S33E3 FOf: C5iil£. 


7F**13 


00570 


INC 


ce 


CSALE WWTS LAST AMFl 


7F45CMB0F 


00580 


Cfll 


CSAVE 


OJIf- TO TAPE 


TF+BOC+TE 


00590 


JP 


KttP 


BO IT «1 OVER AGAIN .LOOP) 


ttabm: 


D4M0 ASCI 


DEni 


'LO' 




7F«tf 


7F46S7 


OOAIO ftSCJ lEFfl 'U^' 


7F« 3D 


7F4f 46 


00620 ASC3 lEFM 'KI' 


7FS 49 


7F51 20 


00630 flSC* DEFX ' ^' 


7152 30 


^^58 


O064O ftSCS KFM 'XF' 


7TW44 


7F55K 


00650 ftSC6 KFM 'R^ 


7F5A3D 


TFS-Sa 


OOiiO flSC7 [tPrt 'R?' 


7F5B5- 


0002 


O047O HIGH ttPS 2 i HIGH flI)lM3S 


t«2 


00680 LDW 


DEFS 


: 


LOU AlftESS 


7F5D 32777F 


OO&90SETEU 


LB 


(TE*).fl 


JROUTINE TQ SET BLOCK Of NEMOfir =10 A UKT. 


7FM 37 


0*700 


SCf 




i SET CARRY FLAG 


TftA W 


04710 


CCf 




CO«PLD€NT DWF;l FLAG 


7ri2 !B 


007» 


DEC 


DE 


ADBS ONE TQ FtESHT Of aJBTRACTION 


7Fi3ED52 


00730 


SBC 


\L,J£ 


DtClJLATt BYTE CffiUT 


7F45 22ra7F 


00744 


LD 


(lirTH;T),HL f sfiVE Evrt emu 


7F^ EMSTSTF MTK 


LD 


KftSnECT) i PUT IT IHIOBC-ffiG 


TFiC 13 


007d4 


INC 


IE 


;R£3T0RE DE-REG 


7F«21777F 


OO770 


LD 


(L.TEff 


i PUT ADK. OF CONST. IN HL-REG 


TFTOOM 


00784 mop 


LDI 




i DO BLOCK IRMSf LR 


7F7Z2B 


04790 


I£C 


M. 


i Mf' SOURff ADW, uONST. 


7F73E(ff07F 


44B04 


JP 


PEiLOOP 


i LOOP UNTIL D0(4 


7F7iC9 


40810 


RET 




i RETUa TO M.LER 


mi 


44S20 TDP 


lEFS 


1 


; TOP STORAGE 


mz 


00330 BITECT 


lEFS 


2 


J BriECDUKT 


7F7A 32777F 


04840 ASCII 


LD 


(TD«>)ifl 


iROUTl* TO COWERT ASCII Ti Si.W.i 


7F7I1U30 


003S4 


SUB 


30H 




7F7FF(W;F 


M8U 


JP 


h>NONUH 


ilF LESS THAN 30H. NOT A fSKUEi-: 


7ra2 3fl777F 


44870 


LD 


AiiTEJ1P> 


; RESTOre A-REG 


7F8SDU7 


9OS80 


sue 


47H 




TFE/faMTF 


44894 


JP 


PiHQKH 


;IF GREATER THlW *7Ht NOT A NUttE£f: 


TFBfl W77F 


oono 


LD 


fiilTEtri 


iRESTORE A~fS£ 


TFBDDMl 


ooyio 


Slfi 


41K 




7FBFF29fl7F 


oono 


JP 


p.a( 


;iTS A MIffiER 


7F?Z3fl777F 


00930 


LD 


fi.lTErtP) 


iRESTORE A-(EE 


7F95Di3fl 


00940 


SUB 


m 




7F?7F2«^ 


04954 


JP 


P.KMUn 


;iF BEJUEIN iU\ AND 40Hi ITS HOT A NUnSFF; 


7F?A3ft777F 


049i4 OK 


LB 


A.(TEIP) 


iBRAtCH HESE IF ITS A VALID NUflBEK 


7F«ICfl77 


OO970 


SIT 


6>A 


ilS BIT A SET? 


;TWC2f67F 


44984 


JP 


HZ>SUB37 


iYESr SUBTRACT 37H AND RETURN 


;fa2emf 


44994 (1SK45 


m 


om 


iNOi hASK OUT 4 NSB IVJD RETURN 


7FMC? 


4100O 


m 






7F«3A777F 


01010 SBH 


LD 


A.(7E*) 




7rASD&37 


01020 


SUB 


37H 




7FMCV 


41030 


RET 






7F«3EFF 


O104ONONU( 


LD 


A.OFFH 


imE HAS NOT A i-'ALIO HEX DIGIT 


7FADC9 


410SO 


RET 




iSET ff^H MS RfTURN 


T(t£ 21tm 


OlOiO 1IF4 


LD 


ItiOOOOH 


(ROUTI* TO aiER 4 1£X DIGITS FROfi KEtB[lt*D 




01070 ; FIRST MUST CL£I« IL-(tEG 


7FBI mtti 


O1080 iifui 


CflLL 


SCfW 


SCAN KEYSOfAD 


7FMCM17F 


01090 


JP 


Zi INPUT 


LOOP IF « KEY PRESSED 


Twms 


41100 


CP 


OIH 


IS IT A CAHilAGE RETURN 


7FB?C2M7F 


OHIO 


JP 


NZilOT 


MO. FIMCEES 


7FBCC9 


01120 


RET 




YES. ff TUfiN 


7FM1CD7A7F 


01130 ea 


CUi 


ASCII 


COMERT ASCII TO BINART (HEX) 


ma nai/v 


01144 


LD 


(CiW)>A 


}StK. IT IN Ct«fi 


TFOUfF 


oiia 


sue 


OFFH 


;iMS NON-MJKRi: KET PRESSED? 


7FC5MEB7F 


01160 


JP 


ZrERASE 


TESr ERASE IT 


7FC8 TD 


01170 


LD 


A>L 


HGt PROCEED 


7FCT CK* 


oust 


%A 


H 


SHIFT H LEFT 4 BITS (A NIBBLE) 


7FCBCB24 


01190 


SLA 


H 




7FC])CS2t 


41244 


su 


H 




TFff CK4 


01210 


SLA 


H 




:TTI1 CB25 


01220 


su 


L 




macB25 


01230 


SLA 


L 




TFDS CB25 


0124O 


SU 


L 




7FD7C825 


01250 


SU 


L 




7FWCB3F 


01Z60 


SRL 


A f 


SHIFT A RIGHT 4 BITS 


7FWCB3F 


41270 


SRL 


A 




7FIIICB3F 


01284 


SRL 


A 




JTVF CB3F 


01290 


SRL 


A 




7FE1 M 


01300 


OR 


H 




7F0 67 


41310 


LD 


H<A 




7FE3 3MT7F 


01320 


LD 


A>!CHAR1 




7FE6 » 


01330 


OR 


L ; 


IHSERI m tC DIGIT INTO H-REG 


TTUiF 


41344 


LIl 


LiA 




TFESCJBITF 


01354 


JP 


IWUT 


CONTIMJE 


TFEBZfliW 


01360 ERASE 


LD 


HL((4068H} iUWl I1-8EG IHTH OJRSOft LOCATION 


7FEE 2B 


01374 


de: 


HL 


BACK IT UP OK SPACE 


7FEF2268W 


41380 


LD 


(4068H)<IL 


7FF2 3E20 


41390 


LD 


A,20H i 


i*.m BL«* OVER LAST DWRACTER 


7FF4II7 


41400 


fiST 


lOH 




7FF5 2A684(I 


01410 


IB 


HL.(4068HI 


m^8 2B 


41420 


BEC 


H. i 


RSTIO BWPED CURSOR. 30 HE lECREIOT IT AGAIN 


7FFVZ248+0 


01434 


LD 


(4463H)r!L 


7FFCC3B1^ 


01444 


JP 


imsi •< 


BRANCH BACK TO INFUT ROUTM 


mi 


41450 avti 


[EFS 


1 i 


lEHP STORffiE FOB CHARACTER 


7EC4 


41460 


END 


aav 




OOOM mtL ERRORS 










COMPUTER 
FORMS KIT 

EACH KIT CONTAINS: 

Samples, Prices, Order Form, 

4 Checks, 2 Statements, 2 Invoices, 

Programming Guides. 

We specialize in small quantities, low prices. 
500 CHECKS ONLY $29.95 




SEND COUPON, CIRCLE BINGO or 
PHONE TOLL FREE 
1+800-225-9540 



FAST SERVICE — it is our policy to ship within 6 working 
days following our receipt of your order. CODE 459 



Name 



Address . 



City 



State. Zip 

NEW ENGLAND BUSINESS SERVICE, INC. 
GROTON, MASS. 01450 



^Reade' Service— see page 147 
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DEBUG-S/S 

FOR YOUR TRS-80 




AT LAST!! 

A POWERFUL 

DEBUG MONITOR 

FOR THE 

EXPERT & NOVICE 

PROGRAMIVJERS 



DEBUG-S/S is a unipuely powerful monitor for: (1) anaiyzing. [2] 
creating or modifying, and (3) debugging macfiine-language pro- 
grams on your ievei II. 16K system. 

EFFICIENT - SIMPLE - FUN 

No longer do you need to keep reaching tor your reference card or 
searching through your program listing while debugging your pro- 
gram. — Most all of this information is at your fingertips with 
OEBUG-S/S Warning - Debugging your program with DEBUG-S/S is so 
efficient and convenient that you may find yourself wishing that you 
had more bugs to find 

RUN IN SLOW MOTION 
With DEBUG-S/S you may run your program m slow motion or smgle 
step and observe your 2-80' registers dynamically and/or observe 
your message printing on the screen one-character-at-a-time! 

SPLIT/SCREEN DISPLAY 
DEBUG-S/S uses a convenient split screen display system. The upper 
right section of the screen automatically displays upon entry to 
DEBUG-S/S from the user's program. This section shows the user's 
next instruction in hexadecimal and disassembled symbolic form, and 
also shows the user's major Z-80' registers. The left portion of the 
screen is for the users display or a scratch pad area for memory 
dumps. The lower right section of the screen is where DEBUG-S/S 
commands are entered and echoed for the user's inputs, 

TRANSPARENT MODE 
DEBUG-S/S may be operated in a transparent mode which leaves the 
entire screen showing all of the user's display data upon entry to 
DEBUG-S/S, except for the letter D displayed on the upper right corner 
of the screen indicating that DEBUG-S/S has been entered. If the user 
now wishes to examine hisZ-80' registers, he simply types D (Display). 

"NO CRASH" BREAKPOINTS 

DEBUG-S/S uses a single byte breakpoint which means you may put a 
breakpoint in the first byte of any instruction in your program and not 
cause your program to crash because of the breakpoint insertion. Your 
breakpoint will stay active until you reset it or redefine it This allows 
you to run through loops in your program repeatedly without having to 
redefine your breakpoint each time. You may enter any number of one 
byte pseudo breakpoints simultaneously in your program manually 
with the Memory command 

POWERFUL COMMANDS 
Examples of DEBUG-S/S commands are. Jump - Go - Breakpoint - 
Memory examine/modify - Hex Dump - ASCII Dump - Symbolic Instruc- 
tion Dump - Single Step - Automatic Step start/stop - Increase/ 
Decrease Auto Step rate - Clear Screen and save cursor position - Clear 
Screen and home cursor position, plus other commands. 

YOU WILL RECEIVE 
You will receive a cassette and instruction manual. DEBUG-S/S is 
assembled into lower memory on one side of the cassette and into the 
top of 16K memory on the other side. DEBUG-S/S uses 4K of RAM. 

'TRS-SO IS a trademark at \t\e Tandy Corporation. 'Z-80 Is a trademark of ZIlog 

Send check or money order payable to: 

CALSOFT 

4421 Gilbert St, #303 
Oakland, CA 94611 

California Residents add 6.5% Sales Tax. 
(PRINT) 

NAME 



$3995 



AOORESS . 

CITY 



STATE 



_ZIP 



aitsE 


7FEB 


CHAR 


7FFF 


(£xr 


7FBD 


I*UT 


7FB1 


(1SK4:: 


TFfC 


SUB37 


ntG 


» 


7F9ft 


NOKft 


7FAB 


ASCII 


7F7ft 


LOOP 


7F70 


BrTEcr 


7F78 


TEJf 


7177 


KEY 


7r2F 


ASC7 


.■■F57 


HSU, 


7F55 


ASt5 


7F5J 


HIGH 


7F59 ■ 


ASt4 


7F51 


flSC3 


7F4f 


LOU 


7F56 


INP4 


7rftt 


ftSC2 


JCi' 


fiSCl 


7F4B 


SETiU 


7F5D 


atf 


7EC4 


SCM 


l)»¥l 


CTOW 


OFEV 


CSUE 


OF*B 



and your program will not run. 

Wfien DUIVIP prints R?, it goes 
into a loop waiting for ENTER to 
be pressed. It does this by call- 
ing a machine language routine 
(SCAN) stored in the BASIC 
ROM that scans the keyboard, 
and if a key has been pressed, 
returns the ASCII code for the 
key in the A-Register. DUIVIP 
checks to see it this code equals 
ODH (the code for carriage 
return or (ENTER)). If it does, 
DUMP begins; if it does not, then 
it loops back and calls SCAN 
again. 

When the carriage return 
(ENTER key) is sensed by this 
process, DUMP calls CTON (a 
machine language program in 
ROM that turns on the cassette), 
loads the low address into the 
HL register, the high address in- 
to the DE register, and calls 
CSAVE (a machine language 
routine in the ROM that expects 
the addresses in the HL and DE 
registers, and which actually 
writes memory to cassette). 
Then DUMP loops back and 
starts all over again. 

Another routine used by 
DUMP is ASCII, which expects 
an ASCII numeric code in the 
A-Register on call, and which 
returns the converted hexadec- 
imal value in the A-register. if 
the ASCII code was not a nu- 
meric one (i.e., not 0-9 or A-F), 
then ASCII returns FFH in the 
A-register as an error indicator. 
ASCII is called by INP4. DUMP 



also uses a routine at 10H, 
which is called with the RST (re- 
start) instruction. (A restart in- 
struction is simply a one-byte 
CALL instruction, which was 
meant for use in interrupt 
response by the people who de- 
signed the Z80 microprocessor.) 
If you want further details of the 
program operation or the way in 
which the subroutines work, just 
read the comments— the code 
is quite straightforward. 

Byte Structure on the TRS-80 

If you have had some assem- 
bly language experience on 32 
or 16 bit machines prior to buy- 
ing your TRS-80, you may be in 
for a couple of surprises. Most 
16 or 32 bit machines use one 
word for a single machine code 
instruction. Since the word 
length is only 8 bits on the Z-80, 
you frequently need 2, 3 or even 
sometimes 4 words (bytes) for 
an instruction, just lo convey 
enough information about the 
instruction. 

On most machines, words - 
instructions, but on an 8 bit 
machine, words i^ instructions. 

Most assembly languages 
have a special symbol that 
means "the contents of the 
location counter" or, "this ad- 
dress." The TRS-80 ASSEM- 
BLER symbol for this concept is 
$ (for other assembly languages 
I have used, it has been $,',., and 
@). 

Some languages frequently 
terminate a loop by means of a 
conditional branch followed by 
an instruction to jump to this 
end location minus whatever is 
required to come back to the 
start of the loop. Normally you 
would count instructions and 
write: JUMP $ - 5, if the start of 
the loop was 5 instructions back 
(and if the mnemonic for jump 
was JUMP). In the TRS-80 
assembler, you must count 
bytes, so that if the start of the 
loop was 5 Instructions back, 
then it would have to be many, 
more bytes than that back. This 
caused me quite a lot of con- 
sternation and nearly convinced 
me that I had a computer that 
had it "in" for me.H 



Mention 80 Microcomputing when you order. 
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Soft;v\/are for the TR S- S O 




MAILING LIST 



$ 9.95 




MAZE-80 



$ 9.95 




PENTOMINOES 



$ 9.95 




ARITHMETIC 



$ 6.95 




COMPUTER 
MINDREADER 



S 6.95 




15 NUMBERS 



S 6.95 





TANK 



S 6.95 




ANY SORT 3 



$29.95 



TRS-80TIELINE 

TRS-80 TIELINE is an extended smart terminal program. 
Functions supported with this package are the ability to 
send artd receive BASIC data and programs. A fully sup- 
ported set of timeshare ASCII control keys are software 
selectable. 'ESC and a 'BREAK' key function do not re- 
quire any hardware modifications. Snnart ftjnctions make it 
possible to jump from mode to mode with communication 
prior to program transmission or reception. Half and full 
duplex modes as welt as line feed transmission or suppres- 
sion, baud rate, parity, word length, stop bits are software 
selectable and can be changed while running, A printer can 
be connected for hard copy of communications as well as 
LLIST at baud rates that include 134.5 baud for certain 
serial printers. A special host or source mode allows other 
computers to use the TRS-80 TIELINE as a timeshare style 
computer. Programs can be run as well as disk files loaded, 
sawed or transmitted by control from the distant computer. 
Character echo-back is supported. Host override of forbid- 
den commands is possible. An additional feature allows 
testing of the TRS-80/RS232 hardware. The program is 
available for DOS 2,0 - 2.2 machines with 32K memory, 
RS232 board and modem. Additionally, the package in- 
cludes a free copy of 'THE TRS-80 DATA COMMUNICA- 
TION HANDBOOK' by Stephen Gibson. The handbook is 
a compilation of terms and in-depth explanations of data 
communication from the standpoint of the user, the hard- 
ware, and the phone company. Various phone line services 
are detailed. Baud rates, bits and codes are explained at 
hobbyist level. How a Bell 103 modem works and how to 
connect it is covered with emphasis on originate and answer 
frequencies, duplex, half-duplex and RS232 conventions. 
The EIA standards are given with ASCII control character 
set information. 



TIELINE 

TRS-80 DATACOMM HANDBOOK 



$24.95 
$ 5.95 



All orders include 3% postage and handling with a minimum of 
$1 .00. California residents include 6% Sales Tax. 

VISA MASTERCHARGE 



TRS-80 IS A REGiSTEBED TRADEMARK OF 
THE TANDY CORP. 



PROGRAMMA 
INTERNATrONAL, Inc. 

3400Wilshire Blvd. 
Los Angeles, CA 90010 
(213) 384-0579 

384-1116 

384-1117 '^^^ 




MINEFIELD 



S 6.95 




NIM 



S 6.95 




ROULETTE 



$ 6.95 




PACHINKO 



S 6.95 




CONCENTRATION $ 6.95 
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QUIZMACHINE 



S 6.95 



Dealer Inquiries Invited 



DBM/5 



S49.95 



•^Reader Service— see page 147 
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UTILITY 



Dream of sound effects? Babybeep is a machine 
language utility to make your dreams come true. 



Babybeep 



Dennis Kitsz 
Roxbury, VT. 05669 



Babybeep sound modules 
are short, machine-lan- 
guage programs that can en- 
hance computer games, add 
sonic feedback to program en- 



try, signal the end of a pro- 
gram's activity or provide sound 
wherever you want it. 

The idea was an offshoot of a 
problem proposed to me by a fel- 
low from Texas who called in re- 
sponse to my earlier programs. 
He asked if a TRS-80-to-Tarbell 
conversion program could be 
developed. Of course it could, 



7D00 ' OE 03 OS CO CD IG 7£ C5 10 V£ CI 10 F7 OU 79 Ft 

7010 * 00 20 EF C9 OE 10 21 20 00 CO IB 7E 06 flO 10 FE 

7020 * 2B 7C B5 20 F4 21 00 OA 2B 7C B5 20 FB 00 79 FE 

7030 * 00 20 E3 C9 OE OA 06 30 CO ID 7E C5 06 FF 10 FE 

7D40 * CI 10 F5 06 50 CD IB 7E C5 05 60 10 FE CI 10 F5 

7050 * OD 79 FE 00 20 EO C9 06 40 CD IB 7E C5 06 CO 10 

7D60 • FE CI 10 F5 05 30 CD IB 7E C5 OS 50 10 FE CI 10 

7D70 * F5 06 FF CO IB 7E C5 06 30 10 FE CI 10 F5 06 BO 

7D80 * CD IB 7E C5 OS 60 10 FE CI 10 F5 06 FF CD 16 7E 

7D90 * C5 06 20 10 FE CI 10 F5 OF 10 06 10 CD IB 7E C5 

7DA0 ' 06 FF 10 FE CI 10 F5 OD 79 FE 00 28 OA 21 00 OA 

7DB0 * 2B 7C 35 20 FB 18 E3 C9 OE 08 06 00 CD IB 7E C5 

7DC0 * 04 73 F6 00 20 FA CI 04 73 FS 00 20 EF 06 FF CO 

7D00 * 16 7E C5 10 FE CI 10 F7 OD 79 FE 00 20 DC C9 06 

7DE0 * 80 CD IB 7E C5 06 80 10 FE CI 10 F5 C9 06 CO CD 

7DF0 * le 7E C5 06 40 10 FE CI 10 F5 C9 OE 20 21 Ofl 00 

7E00 * CD 16 7E 06 FF 10 FE 2B 7C 85 20 F4 21 00 01 2B 

7E10 • 7C B5 20 FB OD 79 FE 00 20 E3 C9 3ft 3D 40 E6 FO 

7E20 * C6 02 03 FF U5 02 03 FF C9 44 20 48 49 54 53 5A 

Program Listing 1: Babybeep/Macfiine 
Language Version. 



FOR X = 32000 TO 32303 : READ A ; POKE X,A : PJEXT X : POKE 16527,12" 

DATA 14, 8, 6. 192. 205, 27, 126, 19?, 15, 254, 193, 16, 247, 13, 121, 254 

DATA 0,32,239,201,14,16,33,32,0,205,27,126,6,160,16,254 

DATA 43,124,181,32,244,33,0,10,43,124,181,32,251,13,121,254 

DATA 0,32,227,201,14,10,6.43,205,27,126,197,6,255,16,254 

DATA 193, 16, 245, 6, 80, 205, 27,125,197, 6,96,15, 254, 193, 16,245 

DATA 13,121,254,0,32,224,201,6,64,205,27,126,197,6,192,16 

DATA 254,193,15,245,5,128,205,27,126,197,6,80,16,254,193,15 

DATA 245,6,255,205,27,125,197,6,48,16,254,193,16,245,6,176 

DATA 205,27,126,197,6,175,15,254,193,16,245,6,255,205,27,125 

DATA 197,6,32,16,254,193.16,245,14,16,6,16,205,27,126,197 

DATA 6,255,16,254,193,16,245,13,121,254,0,40,10,33,0,10 

DATA 43,124,181,32,251,24,227,201,14,8,6,0,205,27,126,197 

DATA 4,120,246,0,32,250,193,4,120,246,0,32,239,6,255,205 

DATA 27,125.197.16,254,193,16,247,13,121,254,0,32,220,201,5 

DATA 128, 205, 27, 126, 197, 5, 128, 16, 254, 193, 16, 245, 201, 5, 192, 205 

DATA 27,126,197,6.64,16,254,193.16,245,201,14.32,33,10,0 

DATA 205,27,125,6,255,16,264,43,124,181,32,244,33,0,1,43 

DATA 124,181,32,251,13,121,254,0,32,227,201.58,61,64,230,253 

DATA 198,2,211,255,214,2,211,255,201,68,32,75,73,84,83,90 

Program Listing 2: Babybeep/BASIC Version. 



Bothof the above programs are identical versions ol an eighl-sound module, which 
can be used to add audio elfecls to games, informalion entry, etc. The machine- 
language version can be prepared by hand; the BASIC version should be placed at 
the beginning of a program. Renumber the lines as necessary to squeeze it in. Line 
10 has already POKEd the most-significant byte into the US R(0) location. See Fig. 1. 



10 
30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

ZOO 

210 



and the very obvious next step 
was to use the cassette output 
port for other audio events. 

The modules are very versa- 
tile. All sorts of loops, glissandi 
and sequences are possible. 

First Option 

The easiest way to add the 
modules to your current games 
Is to protect memory, load a BA- 
SIC game program and then 
load a machine-language SYS- 
TEM sound program of Baby- 
beep, created with an Editor/As- 
sembler or T-BUG. A few simple 
commands can then be Inserted 
in your BASIC program lines 
wherever a sound effect is to oc- 
cur, as in the following example: 



10 INPUT'WHAT IS YOUR NAME";A$ 
20 POKE 16526,237 : POKE 16527,125 
; XX = USB{0) 



If a sound module beep were 
located at the address (7DED 
hexadecimal) called by USR(O), a 



beep would sound immediately 
after the name was entered at 
line 10. A machine-language 
RET{urn) instruction at the end 
of the module would jump back 
to the BASIC program. 

If you are writing the sound 
modules yourself, put them all 
in one page of memory. This will 
make your BASIC programming 
easier, because the most signifi- 
cant byte you must POKE Into 
USR(O) is the "page" number; 
the least-significant byte is the 
only one that needs to change 
(Example 1). 

If you are using my SYSTEM 
tape, which contains eight sam- 
ple sounds and is loaded under 
the name SOUND, insert 

POKE 16527,125 

as the first line of the game pro- 
gram. Use the Index in Example 
2 for the individual sounds. 

The nine lines in Example 2 
can be used as a program by 



10 POKE 16527,125 




REM ■ MSB OF SOUND MODULES 


20 INPUT "FIRST PLAYER";A$ 






30 POKE 16526,233 ;XX = 


USR(O) REM ■ LSB OF FIRST SOUND 


40 INPUT "SECOND PLAYER" 


3$ 




50 POKE 16526,237 :XX = 


USR(O) REM ■ LSB OF SECOND SOUND 






Exampie 1. 




PHASER 




POKE 16526,0 


XX' = USR(0) 


BEEPS 




POKE 16526,20 


XX = USRIO] 


DOODLES 




POKE 16526,52 


XX = USR(0) 


FANFARE 




POKE 16526,87 


XX = USR(0) 


SIREN 




POKE 16526,184 


XX = USR(O) 


ONE BLOOP 




POKE 16526,223 


XX = USR(0) 


ONE BLEEP 




POKE 16526,237 


XX = USR(O) 


RASPBERRY 




POKE 16526.251 


XX = USR(O) 


'Put any unusec 


program variabie ir 


place ot XX, 






Example 2. 
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themselves to listen to all the ef- 
fects, in order. 

Second Option: 
Single Tape Load 

This is more complicated, and 
you should think through this 
process carefully. You can, at 
the beginning of the BASIC pro- 
gram, use the method shown in 
Example 3. Line 10 describes 
the addresses (in decimal) to be 
loaded with the machine- 
program bytes, and lines 50 and 
following list the program data 
(also in decimal form). 

The accompanying Babybeep 
sound program may be append- 
ed to any BASIC program, with 
certain considerations. First, be 
sure you put it at the beginning 
of the BASIC program. Renum- 
ber lines, if necessary, to 
squeeze it in. 

If you put it anywhere else, 
the possibility arises that either 
the BASIC program won't get to 
it, and a USR(O) command wilt 
cause unpredictable results, or 
it will READ other DATA, instead 
of the machine-program data. 

Although this option allows 
you to run the whole sound- 
modified program in one load, it 
requires sure-footed program- 
ming—and accurate typing! 

Hoolting It Up 

Hooking it up is the easy part. 
Load your program(s) and take 
out the program cassette. Put 
the player into record. Most 
cassette players have a record- 
protect interlock, which is noth- 
ing more than a small lever or 
switch. Find it here: 




By pushing this lever back, you 
can put the machine into record. 

Next, if your recorder has a 
monitor switch, set it. If not, 
plug a speaker (a pillow speaker 
is ideal) into the earphone or 
monitor jack. 

You may also simply remove 
the TRS-80's data output plug to 
the cassette player, and plug it 
into any audio amplifier. 

Now you're all set to have 



sound with your programs! 

Notes on Using USR(O) 

Level II BASIC has one com- 
mand, USR(O), that allows a BA- 
SIC program to access a ma- 
chine-language program like 
Babybeep. It gets there by way 
of an address stored in memory. 
Location 16526 (decimal) holds 
the least-significant half of the 
machine-program address. Lo- 
cation 16527 (decimal) holds the 
most-significant half of the ma- 
chine-program address. 

Unfortunately, Radio Shack 
did not allow Level II BASIC to 
use hexadecimal numbers. That 
means that a simple address 
like 7D32 (hex) cannot be en- 
tered as it stands. It must first 
be split into halves: 



and each half converted to its 
decimal equivalent: 



These numbers are then 
POKEd into locations 16527 and 
16526, respectively. (My article, 
"Babybug," Feb. 80 Microcom- 
puting covers this system.) 

Summary 

1. Protect memory at 32000 (in 
response to MEMORY SIZE?). 

2. Load the complete BASIC pro- 
gram with extra DATA lines. 

-OR- 
2A. Load the BASIC program 
with added POKE lines only. 
2B. Load the separate SYSTEM 
tape. 

2C. Press the BREAK key after 
this load. 

3. Remove the program cas- 
sette. 

4. Put cassette machine in re- 
cord. 

5. Turn switch on cassette to 
monitor or install speaker in ear- 
phone jack. 

6. RUN. m 



10 FOB X = 32000 TO 32NNN 

20 BEAD A 

30 POKE X,A 

40 NEXT X 

50 DATA -,-,..,..,..,..,..,-,-..,..,.., 

60 DATA ..,..,..,..,..,-,-,-,..,..,..,.., 
, . , . ETC. 

Example 3. 



First Module: RISING GLISSANDO (PHASER): 

OE 08 —number of zips 

06 CO— speed 

3A 3D 40 E6 FD C6 02 D3 FF D6 02 D3 FF —OUTPUT MODULE 

C5 10 FE 01 10 F2 OD 79 F6 00 20 EA CQ' 

Second Module: SOUND AND SILENCE (BEEPS): 

OE 10— number of boops 

21 20 00— boop length 

3A 3D 40 E6 FD C6 02 D3 FF D6 02 D3 FF —OUTPUT MODULE 

06 AO -frequency 

10 FE 2B 70 B5 20 EF 

21 00 OA —silence lengtn - 

2B 70 B5 20 FB OD 79 FE 00 20 DE 09 

Third Module: ALTEBNATiNG PTICHES (DOODLES): 

OE OA —number of alterations 

06 30— first iengtfi 

3A 3D 40 E6 FD C6 02 D3 FF D6 02 D3 FF —OUTPUT MODULE 

C5 06 FF —first frequency 

10 FE 01 10 FO 06 50 -second length 

3A 3D 40 E6 FD C6 02 D3 FF D6 02 D3 FF —OUTPUT MODULE 

C5 06 60 —second frequency 

10 FE 01 10 FO OD 79 FE 00 20 D6 09 

Fourth Module: THE OUTPUT SUBROUTINE 

This subroutine may be used instead of repeating the output module with every 

sound. It saves 4 bytes over each repeat, 

3A 3D 40 E6 FD 06 02 D3 FF D6 02 03 FF 09 

Fig. 1. Use these Babybeep program modules if you want to 
construct your own sets of sounds or if you want to add sound 
in special ways. 



ADVANCED BUSINESS 
SOFTWARE FORTHETRS-80* 



FORECASTING 
CAPITAL INVESTMENT 
RISK ANALYSIS 



PRODUCTIVITY ANALYSIS 
FINANCIAL SIMULATION 
US. MACRO MODEL 



These progrdriis are essential (or business pianiimy m Todavs volatile 
Bconoriiic climate. Two examples wtiith run on TRS-80 LEVEL II maclimes are. 
Our RISK ANALVSIS model whicli brings tbe uncertainties into focus and 
gives you the infotmratmn you need in order to make inforiiied business 
choices The model can be used to delennine the range of possible R.O.I.'sfor 
an mvesiment, the range of costs for a conslruclion project or the distribution 
of labor hours needed to complete an engineering design. Several built-in 
lealures make tliis one ol the easiest risk programs to use. Tbe only inputs 
required are the most likely, tbe 10% and 90% pomts for tbe variables ot 
interest. From these inputs the program automatically calculates the beta 
curve parameters. Vanahles may be added, multiplied subtracted or divided in 
tbe user model area This adds great flexibility to the progiam and allows 
great freedom in selecting the proper mudel. This Monte Carlo risk model 
comes with detailed User Instruclions and can be run on 32K LEVEL II TR- 
8Gs (printer output optionall Cost of the Risk Analysis model is 
549 

Another program useful tor business planning is our CAPITAL BUDGETING 
program which analyzes the depreciation and tax impacts for an investment 
project. The program allows mvestmeni and revenue streams to vary aver the 
investment lifetime and includes 5 different depreciation methods. Tbe 
before and after lax cashflow for each year is shown along with the summary 
data. The summary slahsties for the CAPITAL 1 program includes the R I , the 
net present value, the payback period, the discount rate (cost ot capital) and 
the profitability index. The cost ol the Capital Budgeting Progiainis S27 

Call or write for complete mtoimation 
APPUED ECDMOMIC ANALYSIS 
4005 Locust Ave , Long Beach, Ca 90807 
(213)424-3652 ^^47 
'Trademark ot Tandy Corp. 



^ Reader Service— see page 147 
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REVIEW 



T'BUG is the Radio Shacl< Monitor, read about a 
more expensive one from Small Systems Software. 



RSM 2 iVlonitor 



Bruce W. Churchill 
6282 Lake Leven Dr. 
San Diego, CA 92119 



People are talking about 
Radio Shack's T-BUG moni- 
tor and reviewing it widely in per- 
sonal computing literature, but 
oneTRS-80 monitor available to- 
day has so many more capabili- 
ties than T-BUG that it deserves 
special recognition. The Small 
System Software RSM-2/2D, de- 
signed by Gary Thurmond and 
Tom Nussmeir can far exceed 
the usual monitor functions of 
inspect and change, cassette 
read/write, jump and execute, 
breakpoints, and the like. 

The increase from $14.95 to 
$26.95, gains over three times 
the capability of Radio Shack's 
T-BUG, making the RSM-2, not 
only superior, but cost effective. 

What is RSM-2? 

RSM-2 has been designed to 



operate with the Level II, 16K 
version of the TRS-80. You can 
do I/O operations directly to and 
from mini-disk sectors, if your 
system is so equipped. The 
RSM-2D version of this monitor 
is the same but is distributed on 
mini-diskette media. 

RSM-2 loads into high mem- 
ory— 6C00 hex, or 27648 dec- 
imal — and occupies 4863 bytes 
of RAM. The mini-diskette ver- 
sion loads into high RAM of the 
16K, 32K or 48K disk configura- 
tions and can be used with a 
hard-copy device. 

RSM-2 supports the Small 
System Hardware TRS232 serial 
data interface and any printer in- 
terfaced through the Centronics 
parallel port on Radio Shack's 
Expansion Interface. 

The addition of the RSM-2 
monitor and a Teletype Model 43 
printer have made the world of 
machine language program- 
ming a wholly different ex- 
perience. A handy feature that I 

LSB WSB FIRST BLOCK 



55 "E" "D" "T" "a" "S" "M" JC 00 00 43 DATA 



FILE NAME 
(ASCII) 



■FILE MAME HEADER 



BLOCK START ADDRESS 



-- BLOCK LENGTH 

(00,6 ■ 256 BYTES) 

— DATA HEADER 



DATA BLOCKS 



LAST BLOCK 



ENTRY POINT ADDRESS 
' ENTRY POINT HEADER 



— CHECKSUM FOR LAST DATA BLOCK 



Fig. 1. TRS-80 Level II SYSTEM tape format 
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quickly discovered is the -' key 
to initiate simultaneous CRT/ 
printer output— in fact, depress- 
ing the ^ key prior to entering a 
monitor command wili cause 
that command to be printed as 
well. A nice bonus for documen- 
tation! 

Not counting the printer com- 
mand, there are 31 commands 
available in the RSM-2 monitor. 
They fall into the general group- 
ings of control, tape, disk and 
memory commands. I also dis- 
covered user access to four 
routines within RSM-2: the CRT 
processing routine; the key- 
board routine; the routine that 
checks for BREAK key depres- 
sion and the printer driver. This 
accessibility is provided by five 
jumps at addresses 6C00, 6C01, 
6C02, 6C03 and 6C04. The 6C00 
jump is to the monitor start. 
These subprograms then 
become useful as adjuncts to 
your own programs as long as 
RSM-2 is co-resident within 
RAM. 

Another unique feature of 
RSM-2 is the ability to halt cas- 
sette I/O operations with the 
BREAK key. This is an improve- 
ment over the Level II BASIC 
scheme of having to depress the 
reset button to restart cassette 
I/O. This is made possible by 
self-contained read/write rou- 
tines within RSM-2. There are no 
calls to the BASIC interpreter in 
ROM for these functions. For 
additional information on the 
location and operation of 
specific routines within RSM-2, 
registered owners may send for 
a well-documented assembly 
source listing of the 16K version 



of RSM-2 {less the symbolic 
dump, or disassembler portion). 
This document is well worth the 
additional $7.50 investment if 
you are a serious machine 
language student. 
Control Commands 

The control commands con- 
sist of the following: 

GOTO: Transfers control lo a specified 
address and starts execution there. 

INITIALIZE: Clears screen and Initializes 
scratchpad memory, 

PORT INPUT: Reads specified port and dis- 
plays data on CRT. 

PORT OUTPUT: Outputs a specified byte 
lo a designated port. 

USER: Aliows the linkage of user-detlned 
programs to RSM.2. 

KEYBOARD ECHO: Direct keyboard-to-CRT 
data transfer. 

BINARY ARITHMETIC: Computes the sum 
and two-way difference tor base 10 
and 16 numbers. 

TRS232 PARAMETERS: Allows modifica- 
tion of serial printer parameters. 

BREAKPOINT: Halls program and displays 
GPU register contents. 

Most of these commands are 
self-explanatory and fairly typi- 
cal of those in other monitors, 
however some are deserving of 
a closer look. 

For example, the experienced 
TRS-80 user will notice that the 
PORT INPUT and PORT OUT- 
PUT commands are virtually 
identical to the Level II BASIC 
commands INP and OUT and to 
theZ-80 machine instructions IN 
A,PORT and OUT PORT.A. The 
benefit of having them in RSM-2 
is that they are directly acces- 
sible during monitor operation, 
particularly during the program- 
ming and debugging of inter- 
face applications. 

The USER command gives the 
programmer a minimum of 128 
bytes (from 7F80 to 7FFF) in 
which to locate self-designed 



ADDRESS OLD CODEIHEX) NEW COD qH EX) 

7331 2100FF 21C0 3F 

7334 E5 E5 

7335 36 07 00 00 



734F C3 D3 6D 



00 00 00 



Table 1 SSS patch for READ 
SYSTEM TAPE function in RSM-2 



patches that might complement 
RSM-2 functions. Of course a 
jump to RAM lower than 6C00 
would allow even more space if 
memory conservation were not 
a factor. Values for the BC, DE 
and HL registers may be speci- 
fied for passing to the user pro- 
gram. 

The BINARY ARITHMETIC 
command allows the program- 
mer to input two numbers, A and 
B, and compute A + B, A - B and 
B~A in both hex and decimal 
notation. This function is handy 
for determining required mem- 
ory offsets as we shall see later 
in this article. 

The BREAKPOINT command 
operates much Ihe same as in 
other monitors. The register 
display format is: 

AF BC DE HL IWIY STAK 
0360 0000 6000 7000 4173 6F7E 
0054 1ACE 103D 9231 5033 6DCF 

The first row represents primary 
registers, the IX register and the 
Stack Pointer register; the sec- 
ond row represents alternate 
register pairs AF', BC, DE', HL', 
the lY register and the address 
at the top of the stack. 

The tape and disk commands 
consist of the following: 

WRITE TAPE: Writes cassette in RSM for- 
mat (object code], 

PUNCH TAPE: Writes cassette in Level II 
SYSTEM format, 

BEAD TAPE: Reads RSM format tapes 
into memory. 

READ SYSTEM TAPE: Equivalent to ttie 
Level II SYSTEM function, 

READ DATA TAPE: Reads any tape data 
into specified RAM address. 

LOAD AND GO: Reads RSM format tape 
and transfers control to the start ad- 
dress. 

CHECK TAPE: Works similiar to tfie 
CLOAD? function but for RSM format 
tapes, 

SAVE TO DISK: Writes directly from RAM 
to disk sector. 

Again many of these func- 
tions are self-explanatory, but I 
am going to digress from our 
command review and talk about 
some interesting applications. 



The READ SYSTEM TAPE 
command, for example, can be 
used to read a standard Level il 
format tape as was mentioned 
in the command summary; how- 
ever, it has an added feature. As 
the machine language tape 
loads, the file name appears on 
the lower portion of the CRT and 
when the load is complete, the 
entry point address {the address 
where program execution be- 
gins) is also displayed. This is a 
particularly useful feature if you 
are not sure of the file name of a 
machine language program 
tape or where to specify the 
execution, if you're transferring 
control to a resident program 
from BASIC, 

There is one minor drawback 
to the READ SYSTEM TAPE 
command, however. It is very 
sensitive to the noise generated 
at the 1/0 crossover points of 
data on the tape, a character- 
istic that is all-too-present on 
some mass-produced commer- 
cial program tapes. 

There are two solutions to 
this problem: one is to enter the 
patch in Table 1, which was 
kindly provided by Gary Thur- 
mond of SSS; the other is to 
create a backup copy of the 
SYSTEM tape on a good-quality 
audio or digital cassette. The 
latter fix can be done with the 
RSM-2 by using a procedurethat 
I will explain shortly. This pro- 
cedure alone is worth the entire 
RSM-2 cost. It is made possible 
by the existence of the READ 
DATA TAPE command, a com- 
mand which is not documented 
in the manual accompanying 
RSM-2. 

The READ DATA TAPE com- 
mand is the unsung hero of the 
RSM-2 monitor. Unsung be- 
cause it is not described in the 
documentation, and a hero be- 
cause it allows reliable machine 
language program tape copy- 
ing. It functions very simply by 
ignoring any input format pro- 
cessing and reading any 
cassette as raw data. All bytes 
past the synchronization byte 
on a SYSTEM tape (or any other 
tape) are read into memory be- 
ginning at a user-specified ad- 
dress. There is no checksum 
processing, nor is there a rou- 
tine to shut off the cassette 
motor, so certain precautions 



This Weekend: 

STIK 

IT.... 
••to your 



That's righli Esmark's VIDIET-STIK ligfit pen has the TBS-BO CONNECTION 
for LEVEL I & II. Your 4K to 46K TRS-80 System will come alive under your 
VIDIET-STIK within minutesot its arrival. That's because there are no wires to 
solder or traces to cut You're up and running as fast as you can plug the 
Interface into your system's cassette EAR-|ack, CLOAD our custom LIGHT- 
WAVE demonstration software and RUN. And because the interface has a 
plug for your recorcter, you won't have to unplug it again when loading your 
other software tapes The interface allows Ihem to pass right thru whenever 
you're not using the pen It's exclusive "switched tip" design means the pens 
electrically isolated from your system when it's not In use. Just point S pressi 
It's that simple... Plug, CLOAD and RUN. And have we got the software for you 
to RUN with! Our demonstration tape includes a calibration program (used to 
adjust the CRT's brightness and conlrasl) plus STIK-TAC-TOE, AWARI and 
TOWERS. Two chailanging games and a puzzle that will keep grownups and 
children Stik'mg it to your TRS-60 tor hours And there are instructions 
provided so you can begin writing your own iigtit pen programs (Ughlware) 
for lun or profit (Level II) Or, just sit back and enjoy our LIGHT-WAVE tapes 
each month. Esmark's unmatched commitment to lightwarecan bring you up 
to five new games, puzzles, drills & educational quizes or simulations each 
month Our current LIGHT-WAVE releases are: 



LIGHT-PAK2 — LIGHTPEG (4 peg-|ump puzzles] 
ENDRUN (Othello with a 'twist') 

(LEVEL II) LIFE9 (Conway's LIFE with mutations) 

Price $19 95 (including postage & handling) 

LIGHT-PAK3 — LITEGAMMQN (Backgammon yoult Stik with) 

(LEVEL II) STIKWUMPUS (Caves with a little lite) 

MAZEMASTER (Maze after maze to poke thru) 



Order yours now and we'll Include a free copy of FLASHBACK, Esmark's 
newsletter dedicated to the latest news in lightware applications And, don't 
forget to tell your friends The VIDIET-STIK can also be ordered for use on 
most other micro systems using the following processor chips 



T 
R 

S 
I 

8 
O 



Z80 



6800 



6502 



All that's required is a standard cassette jack leading to Ground and a 
readable single bit input port. Driver software is provided along with 
instructions for writing lightware applications And tell your local Dealer that 
Esmark's got a Dealer package he won't want to miss out on Delivery is 3 to 6 
weeks from receipt of your order. CTO.D.'s are $3 00 extra but will be shipped 
within two weeks All prices are F.O.B. Mishawaka, Indiana Indiana residents 
add 4% state sales tax. 



ALSO COMING FROM ESMARK 

I I TRS-80 Printer interface (Cassette AUX-|ack interface for all RS232 
printers. Includes LLIST& LPRINT software) 

I I TRS-eO RS232 Communications Interface (Makes your TRS-aO a full 
I/O terminal to timesharing systems the world over Gives you 
intelligent or dumb terminal capabilities at 110 or 300 BAUD. Also 
Includes Pnnter Interface above with 20 mA current loop & TTL level 
I/O options.) 

— TRS-80 is a trademark of the Tandy Corporation — 




NCORPORATED 



507Va E. Mckinley HWY. mishawaka. in 46544 
(2i9) 255-3035 

-« $62.95 

PLUS $1,50 
•ELECTRONIC SYSTEMS MARKETING POSTAGE & 

HANDLING 
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TR8-80® CP/M® &CBA8IC® 
BUSINESS SOFTWARE 



All MOD II CP/M's are not created equal . . . 
Find out why ours is the Better Business Buyl 

Model I CP/M (rel. 1.5) SI 50.00 

Model II CP/M (rel. 2.0) 250.00 

CBASIC 95.00 

APH (Automated Patient History) 1 75.00 

RESIDENTIAL PROPERTY ANALYSIS 

system 300.00 

The Genuine Article: 
Osborne & Assoc. CBASIC source programs — 

O&A Payroll w/Cost Accounting $250.00 

O&A Accts. Rec./Accts. Payable . . . 250.00 
O&A General Ledger w/Cash Journal . 250.00 
O&A CBASIC books for above (each) 20.00 



Send 30<: SASE for CP/M Users Group software 
list & free "CP/M Primer". 

■ TRS-BO IS a registered trademarti of Radio Shack, a Tandy company 

■ CP/M is a registered trademark of Digital Research 

' CBASIC 15 a reqislered trademark of Software Systems 



{7141 848-1922 
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Q W R D F R(>1\A TTERRBGCYPQGZIVJBPCE 
SHNOBTXA D\0\F REEIDEASEEDSRPVYXXON 
VLTWGYROS G\R\E DPVOKLMRHECTVXHNAFH 
BJELFEQA2G AP\P CRYPTOUPZAXZQJEJTS 
ZDQINKFSNAG t\h\L GFJSEYWTVNPFJVZVC 
BVLFGULMNSNE I^At TSCYMBCGWBQOFMPO 
UOVZKBFIOEPUY AV^E XMOLERZJXACHYRU 
PKBMYUCWOCGLDMRXSEWHCZTIONGULYK 
ZMHOUPXBLKACAPOOUKBFLIPCNEFQAFE 
OWTAYCOGWHETMNHAQZQJLOWERCASETH 
HRSSKVCDGCBOAPTGTHTXTPHLEILRETQ 
EYINDLXXCBCVXDZHOPRYVYPRVADNTOL 

FREE IDEA SEEDS T" 
Have you ordered yours? If not, you better reconsider. More 
than 5000 happy subscribers think you don't know what you are 
missing. These are FREE programs for your TR$-80 and all you 
have to do to get them Is send us a legal size SASE. That is 
a!l there is to It. Simple? You betl Every month there's a 
new program and you really don't want to miss any of them! 
When you stop and think about It there are only three ways to 
bulid your software library. One way Is to write the program 
yourself. Another way Is to purchase programs. The best way 
Is to have the programs given to you and that Is just what we 
are doing! All FREE IDEA SEEDS are our own original programs 
and we want you to have them to use, rewrite, and expand. 
Send your legal size SASE to: 
CECDAT, Inc. ^^2 PO Box 8963 Moscow, ID 838'i3 
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Program Listing 


1. HEX DUMP Readout of RA!\/I after 


execu- 


Hon of READ DATA TAPE from address 4300. 









have to be taken before using 
this command. 

The format is R XXXX YYYY, 
where XXXX is the number of 
bytes to be read and YYYY is the 
address v/here data is to begin 
loading in RAM, An obvious 
question might be, w/hat value 
shall I use for XXXX? The answer 
is to guess, but make sure that 
your guess is at least as long as 
the target program. A perfectly 
safe value is 28FF hex, the max- 
imum length of free RAM be- 
tween the recommended start 
address of 4300 and 6C00, the 
start address of RSM-2. 

One other use of the READ 
DATA TAPE command is to in- 
vestigate various tape formats, 
including the Level II BASIC for- 
mat, Editor/Assembler source 
file format, and of course the 
Level II SYSTEM tape format. 

Level II SYSTEM Tape Format 

Fig- 1 illustrates the format 
used by the Level II SYSTEM 
routine in ROM to load machine 
language (object code) pro- 
grams. Each SYSTEM tape uses 
a certain number of bytes to put 
the program into its proper loca- 
tion in RAM and load the pointer 
to the entry point address. This 
pointer is a two-byte address at 
40DF, or 16607 decimal. These 
bytes are a form of tape "over- 
head" and are not a part of the 
data being loaded. I will refer to 
these bytes as header bytes. 

The first seven bytes on a 



SYSTEM tape beyond the synch 

byte are the file name header (55 
hex) and the 6 ASCII characters 
of the file name. Each data block 
that follows has five bytes of 
header information: 3C to indi- 
cate a data block follows, the 
block length (00 hex = 256 byte 
block), two bytes for the block 
start address and at the end of 
each data block, a checksum 
byte. Listing 1 is a typical dis- 
play from the READ DATA TAPE 
command showing the file 
name bytes, the first data block 
and the beginning of the second 
data block. Note that the block 
start address is displayed in 
Zilog integer format (LSB, MSB). 

The remaining header bytes 
required for SYSTEM tape 
loading are the entry point 
header code (78 hex) and the 
tw/o bytes to represent the entry 
point address. These two bytes 
are stored at 40DF and 40E0 as 
part of the load operation. The 
last line of the display in Listing 
3 shows the final data block 
checksum (91) followed by the 
three entry point header bytes. 

When a tape is loading under 
the SYSTEM command, each 
flashing asterisk indicates every 
other data block. This gives us a 
simple method of estimating the 
length of an unknown program. 
Simply count the asterisk 
flashes, double that number and 
then multiply by the block 
length (assume block length = 
256 bytes, although shorter 
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blocks are sometimes used). 

System Tape Duplication 

Now we have the information 
necessary to perform a very 
useful function with tiie RSM-2 
monitor— the duplication of 
machine language program 
tapes. To do this we will need 
the READ SYSTEM TAPE, READ 
DATA TAPE, HEX DUMP, FIND 1 
BYTE, HUNT 2 BYTES, BINARY 
ARITHMETIC and PUNCH com- 
mands from RSM-2. From the 
target program, tape we will 
need the program start address, 
ending address and entry point 
address. The last of these is us- 
ually, but not always coinciden- 
tal with the start address. We 
will use an example where this 
is not the case— the Radio 
Shack Editor/Assembler pro- 
gram. 

First, load the target program 
using the READ SYSTEM TAPE 
command. This calibrates the 
recorder volume (remember that 
the READ DATA TAPE com- 
mand does not do a checksum) 
and also reads the counter when 
the load is complete. The 
counter value can be used in the 
next step to estimate when to 
shut off the tape recorder. 

Next, reload the tape using 



the READ DATA TAPE com- 
mand. The result should appear 
as in Listing 1 when the HEX 
DUMP command is invoked at 
address 4300. The READ DATA 
TAPE command is R 28FF 4300. 

Note in Listing 1 the file name 
header, 55 E D T A S M, followed 
by the first data block header as 
described above. The first 
parameter of interest i"s the pro- 
gram start address, 4300, which 
coincides with the first data 
block start address. 

The next step is to locate the 
3C header byte corresponding 
to the last data block. Use the 
FIND 1 BYTE memory com- 
mand, (Listing 2) starting the 
search at 4300 and ending in 
this case at 6000. By estimating 
program length we can add a 
few bytes for comfort and come 
up with the ending address for 
the 3C search. 

Now, a little guesswork is in 
order. Since the block length 
was 00 in this example, I chose 
the last occurrence of a 3C byte 
followed by a 00 byte. In this 
load module my choice was at 
address 5084; doing another 
HEX DUMP from 5C84 as shown 
in Listing 3 confirmed this as the 
final data block. Note the entry 
point information. 

To find the ending address of 
the executable object code, add 
the block length - 1 (FF) to the 
last data block start address 
(5C00) to get 5CFF. The BINARY 
ARITHMETIC command comes 
into play here as shown in 
Listing 3. The entry point ad- 
dress, 468A, can be obtained by 
inspection. 

The last two steps involve 
reloading the EDTASM program 
to put the executable object 
code (as opposed to the object 
load module, that includes all 
the header bytes for the loader 
routine) back into its proper 
location in RAM, Then use the 
PUNCH command with the 
parameters 4300 5CFF 468A to 
create a new EDTASM tape. This 
procedure can be used to copy 
almost any Level II SYSTEM 
tape. 

Memory Commands 

Having bled the monitor dry 
with lyo commands, let's take a 
look at the memory group, some 
of which I already discussed. 
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/JQI Q Break our test message! 

\M\#kt^ To earn 3 ouncesof fine gold, 

npmj|fj|n|^| send stamped, self -addressed 
nCWMIfl/: envelope to CRYPTEXT to enter. 



FEATURES: 



APPLICATIONS: 



KEY LENGTH=80bits (more than DESO 
DATA RATE: Exceeds 15*000 chars./sec. 
Pocket-size encryption device 

Secure data transmission 
High security file storage 
Software protection •^5' 




masler charge 



R O. Box 423 
Norihgate Sta. 
Seattle, WA 9812S 



CORPORATION 



(206) 364-8585 





p^: 



•CANNED SOFTUAEE i 



vS^?^^ For Software 
o Mall Base 80 



SOFTWARE! 



Yes! Quality Software for the TRS-$0 is now 
written & available. BCC is pleased to be able to 
present some very fine software now with even 
more available in the very near future. Also we 
develop custom designed software for your 
every need. Write us for a FREE price quote. 

■TRS-eO Is a Lrjdp tniirk of t ne RjJli! Shack Div. of CjnJu Cure 

-e Think BCC ^^^=A 
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ORDER now: Ail programs come on quality cassettes, Pri>Kvams are available on diskette for an 
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« of Items ordered Total amount enclosed . . (All items must be prepaid) 

Bourrut Consulting Corporation ^57 
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►-Header Service— seepage 147 



80 Microcomputing, April 1980 • 73 




INTERACTIVE 



MICROWARE, INC. 



P.O. BOX 771 



STATE COLLEGE. PA. 16801 



MEANS IMAGINATION 



TRS80 LEVEL II/16K $25.00 

BASEX COMPILER 
AND LOADER 

BY PAUL K. WAR ME 

A powerful, easy-to-learn 
language that runs up to 
20 times faster than BA- 
SIC. This 8K interactive 
compiler works much like 
BASIC and makes very 
compact programs. Fea- 
tures include arrays, strings, 
16 bit math, block move 
and search, subroutines, 
fast graphics and tape I/O, 
97-page manual, $8 extra. 



MIRRORAYS 16K/LII $7.95 

Flash rays of light into a black box in order to locate hidden 
mirrors, which light up and reflect the rays when hit. 
LUNAR LANDER SIMULATOR 16K/Llt $7.95 

This program provides REAL-TIME simulation and control 
of the Lunar Module through continuous keyboard inter- 
action. 

COMPACT GRAPHICS INTERPRETER 4K/LII $7.95 
Elaborate graphic designs can be created and constructed 
by this interpreter with a simple set of numbers. 
BATTLEGRID 4K/LII $7.95 

A REAL-TIME game of speed and strategy, enabling two 
players to attack each other's forces. 

Add $.75 postage per order. FREE brochure with full 
description of each program. 



SBm gvsTEfns, inc 



^154 



Computer Si;rv/a.9s • H-:irdw,jn! • Softwuri: * C(}nsiilting 
Professional Business Software to operate on 
TRS-80* computer 

• ISAM Accounting Package: 

— Accounts Payable, Accounts Receivable, 
General Ledger with Cash Journal, In- 
voicing and Payroll 

Integrated Accounting System $425.00 

Separate Modules $ 99.00 

• ISAM Inventory Control $125.00 

— Above Systems require 2 - 3 drive Systems. 

— Integrated System requires 3 - 4 drive Systems. 

— Systems operate under NEWDOS by Apparat 
(not included) 

• Machine Language Disk Sort $ 49.95 

— Multiple Keys - Ascending, Descending 
Callable under Basic 

TO ORDER CALL: 




(617) 685-0151 



VISA 



* Trademark of Tandy Corporation 

** Accounting Package not available in the State of California. 



ASCII DUMP: Displays memory 
as ASCII characters where 
appropriale (48 byles per line) 
Periods are displayed tor non-ASCII 
bytes. 

FORMATTED ASCII DUMP: Displays mem- 
ory as ASCII characters where appro- 
priale (16 byles per line). Indicates 
prinlabie and non-prinlable charac- 
ters as weil as those with bit 7 set. 

HEX DUMP: Standard hexadecimal mem- 
ory dump (16 bytes/line). 

EDIT MEMORY- Standard byle-tor-byte 
moditicalion teature. 

FIND 1 BYTE: Searches for a specified 
byte between two addresses in any 
memory segment. Output is designed 
to find I/O instruction references 

HUNT 2 BYTES: Same as above except that 
two bytes are searched with Zilog 
integer interpretation. Designed for 
locating memory references 

MOVE MEMORY: Move a block of memory 
with overlap allowed. 

CHECKSUM: Compute and display a 
checksum for any block of memory, 

SYMBOLIC DUMP: A disassemtiler pro- 
gram using Zilog mnemonics. 

TEST MEMORY: Checks each RAM ad- 
dress with 256 random number write/ 
read cycles, 

VERIFY MEMORY: Compares two blocks of 
memory and outputs differences. 

EXCHANGE MEMORY: Exchanges two 
blocks of RAM. 

ZERO MEMORY: Writes a specified value 
into any block ot RAM. 

The SYMBOLIC DUMP(Disas- 
sembler) lacks the capability to 
display ASCII characters, with 
the mnemonic listing. Having to 
refer to a separate ASCII dump 
for analysis of machine lan- 
guage programs is somewhat 
inconvenient. Another useful 
feature found lacking was the 
ability to create an Editor/As- 



sembler compatible source file 
(ASCII text) from the disassem- 
bly process. 

The MOVE MEMORY com- 
mand is not a relocation feature 
unless the program being 
moved uses only relative 
memory references, that is, 
unless it is a "relocatable" pro- 
gram. The MOVE MEMORY 
command does not offset any 
absolute memory addresses. 

The MEMORY TEST com- 
mand writes 256 random num- 
bers into each memory location 
of a selected block of RAM, It 
takes about nine seconds to 
complete the test of each RAM 
location. The output is memory 
location, expected value and ac- 
tual value for each defective 
memory address. 

You will not be able to test the 
part of RAM occupied by RSM-2 
unless the memory test function 
is removed and made an inde- 
pendent, relocatable program. 
This is facilitated by using the 
listing referred to earlier. 

In summary, the RSM-2/2D 
monitor is a versatile, easy-to- 
use and reliable programming 
tool that belongs in the software 
collection of any serious TRS:80 
user. It may not be the ultimate 
monitor, if such an animal really 
exists, but it offers exceptional 
value for the price.H 
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Expand memory in TRS-80* -I and -II, 
Exidy, Apple, new PET, Heath H89, and 

other machines with our low power, high 
speed (250 ns/4 MHz) 16K dynamic 
RAMs. Add $3 for two dip shunts pius in- 
structions for TRS-80* expansion. 

^■TRS-80 is a [rademark of Ihe Tandy Corporation 

Imiiiiiiiiiiiiiiiiiiiiiiiii 



Thinldng about easier expansion? Higher 
speed? More power? Then think S-100. We 
stock an innovative and extensive line of 
S-100 bus products, from computer enclo- 
sures to color graphics boards. Send today 
for our free catalogue (foreign requests: 
add $1 to help cover postage and han- 
dling costs). 





. iiiiiniiiiiiiiiir 

IGODBOUT ELECTRONICS 
BIdg. 725, Oakland Airport, CA 94614 

TERMS: Cal res add tax. Allow 5% for 
shipping, excess refunded. VISA®/ 
Mastercharge® call our 24 hour order 
desk at <415) 562-0636. COD OK with 
street address for UPS. Prices subject to 
change without notice. 
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* Personal Checks 

* Payables Checks 

* Payroll Checks 

* Combination Checks 

* Statements 

* Invoices 

* Small Minimum Orders 

* Fast Delivery 

Checks 
To-Go 



* Registered Trademark of Tandy Corp. 



P.O. Box 148, Spring Valley, California 92077 (714) 460-4975 



SPECIAL DELIVERY® 



TRS 80® -I- Electric Pencil® 



By adding SPECIAL DELIVERY to Electric Pencil 

you can realize the full potential of your TRS-80! 

A 100% machine language word processor!! 



MAILFORM — Create MAILFILE: A 
complete Name and address list en- 
try/editor program. Instant search 
on any field, complete cursor con- 
trol, optJonal beeper to let you know 
something is wrong, active tile always 
displayed, search can include num- 
eric only as well as don't care charac- 
ters, just FILL IN THE FORM!! 



MAILRITE — Print letters written 
with the Electric Pencil inserting 
information from a MAILFILE into 
the letter for personalizing and ad- 
dressing. True typist quality using 
your printer. Features: Indents, un- 
derscore, end of page stop, unlim- 
ited insertion from address list, ad- 
dress envelopes and MORE! 



SORT — MAILFORM will sort an 
entire address list in seconds using 
any field as the key. 

LABEL — MAILRITE prints mailing 
labels from MAILFILE. 
CONVERT — Transform your 
Radio Shack Mailing list into a 
MAILFILE! 



SPECIAL DELIVERY (Disk) 125.00 
Electric Pencil (Disk) 150.00 

Phone Orders (214) 357-8357 

Or write for brochure of our complete line 

of fine software! 




OFTWARE, ETC... 

1839 CHAMBERLAIN DRIVE 

CARROLTON. TX 75007 ^42 
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Introciucmg 

COBOL + FORTRAN + 64K RAM 



FOR YOUR TRS-80 



* Release your software chains with the NEW FREEDOM OPTION, a plugable change 
that restructures the TRS-80" on command to perform like a large Z80 system . 
All the TRS-80' features are retained. All TRS-80' software will run without 
interference. The option is supplied with a fully assembled & tested FREEDOM BOARD, 
T8/OS on a5V4'disk, and complete instructions. T8/OS allows your TRS-80' to execute 
most software originally written for CDOS, , TSA/OS^, and CP/M3 operating systems. 
T8/OS opens the door to higher level languages and existing programs. 

if To further enhance your TRS-8O' processing power, a MEMORY EXPANSION OPTION 
is available to replace, on command, the ROM and provide A FULL 64K RAM. 
This option is switched Into operation by the FREEDOM BOARD providing 57K of 
USER RAM with T8/OS loaded. Both options are fully assembled & tested and fit 
into the TRS- 80' keyboard enclosure. Write for more details. 6Mo. Board Warranty. 

FREEDOM OPTION $245 

MEMORY EXPANSION OPTION $295 



Send Check or Money Order to: 

(MASS. RESIDENTS, PLEASE I NCLU D E 5% TAX) 



masler charge 



F.E.C. ltd 




(617) 944- 5329 

P.O.Box 2368 •Woburn, MA. 01888 



•TRS-80 ®Tandy Corp. 
1-CDOS ® Crmamco Inc. 
2-TSA/OS A TSA Soltwar« Inc. 
3-CP/U ® D igital Resaa t ch tnc. 



ATTENTION TRS-80'S 

Why sit in the corner in the dark and turned 
off while your master is sitting by the light, 
turned on to 80 Microcomputing? 
You need a magazine of your own for Education- 
Enlightenment-Enjoyment and for the personal 
satisfaction (you're a personal computer, aren't 
you?) of your very own possession ... A 
Subscription to CLOAD MAGAZINE! 
Turkey your master into sending a check 
(U.S.A.: S36,00, Overseas: $38.00 Surface 
Delivery - $48.00 Airmail) to the jive cats 
at CLOAD MAGAZINE. You will get 12 C-30 
cassettes, one a month, each one filled with 
all kinds of juicy software - Games. Tutorials, 
Practicoi Programs and Impractical Trivia, Ail 
programs rated G for computers under 18 years oid 

Do it! Subscribe Now! 



Box 1267 

Goleta, CA 93017 
(805) 964-2761 
Master Charge /VISA 
Welcome 



MAGAZINE 

■'TRS-80 is a registered trademark of TANDY CORP." i^32 




<^^ 1976 CLOAD MAGAZINE 
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EDUCATION 



A practical application for 80 owners 
whose children are learning the ins/outs of math. 



Pre-School Math 



Donald Hastings 

Box 366 

Hemingway, SC 29554 



Daddy, is that right?" My five- 
year old son showed real in- 
terest and aptitude in math 
which I naturally wanted to en- 
courage but eventually that con- 
stant question can get to you— 
uh— me. 

He was eager to know if his 
answer was right and just as 
eager to get some recognition 
for his efforts. I was tiring. I 
needed someone or something 
that did not tire yet still offered 
the recognition that he needed. 

The following math program 
on the TRS-80 fulfilled that need 
admirably. 

My son got the thrill of work- 
ing Daddy's computer, the rec- 
ognition he needed and prac- 
ticed his math all at once. The 
program presses a youngster to 
grow by gradually giving him in- 
creasingly hard problems. 
These are mixed with easier 
ones. Also, the computer will 
back off if the operator is miss- 
ing too many answers. 

Operation 

When a correct answer is 
given the computer responds 
with a flashing "YES" and 
scores one point in the RIGHT 
column. 

When an incorrect answer is 



given the computer flashes a 
"NO," erases the response and 
gives the operator two more 
chances. If incorrect answers 
are entered alt three times, the 
correct answer is displayed on 
the screen and one point is add- 
ed to the WRONG column. 

Every time the child gives five 
correct answers the computer 
begins to increase the difficulty 
just a hair. If six incorrect an- 
swers are given the difficulty is 
reduced slightly. 

In this way the computer ad- 
justs to the level of the person 
working the problems while 
maintaining a slight upward 
pressure. After twenty problems 
the score is computed and 
flashed on the screen. If you 
haven't been watching and 
giving necessary encourage- 
ment to your youngster through- 
out the series, this is the point 
where you are called upon to 
bestow credit for achievement. 
You will also be able to see the 
level your math expert achieved 
and the final score. 

If your child wishes to con- 
tinue another series, the prob- 
lems begin at a slightly higher 
level than where the previous 
series began, unless it had 
proved too hard. By starting at a 
level below where the last series 
finished, the upward pressure is 
maintained, but the child is still 
encouraged. 

Another nice touch for the 
younger operators is that they 
have to learn to spell their name 



to play the game. Even though 
my five-year old son can't read 
the question, he knows his 
name must go there and prompt- 
ly enters it to begin the series. 
He also knows what the right 
and wrong columns are and can 
understand the flashing "YES" 
and "NO". Selecting the proper 
program and level from memory 
(ADDITION, LEVEL l-he hasn't 
gotten into subtraction yet) ap- 
pears to give him no difficulty. 

The degree of difficulty from 
one level to another is fairly sub- 
tle. If you find a particular level 
too simple you may have to in- 
crease by several levels to find 
an appropriate one for your 
child. 

Modifying the Program 

It took a little experimenting 
to find out when to change 
levels and how many problems 
to include in a series without 
discouraging my son. Experi- 
ment with your child and modify 
the program to his needs, if you 
wish to increase the difficulty at 
a faster pace, line 7140 adjusts 
the level of difficulty down one 
when six incorrect answers are 
entered. 

NOTE: this is six incorrect 
answers entered, not scored. To 
score six incorrect answers the 
person would have had to enter 
at least 18 incorrect ones. Also, 
a correct answer does not erase 
the record keeping of incorrect 
entries. If an operator con- 
sistently has to make several at- 



tempts at each problem, we 
might be pressing too hard. 

Line 7150 moves the level up 
one for each five correct 
answers scored. This maintains 
the gradual degree of difficulty 
of the problems, but can be ad- 
justed for your student. 

Line 7160 sets a series at 20 
problems (T = 20) before the 
score is given. Adjust this figure 
to match the attention span of 
your child. You may even decide 
to make this a variable so that 
each series is different. 

To adjust the number of times 
a problem can be missed before 
it is scored as incorrect, change 
the value of N in lines 7050, 4040, 
3030, 2040, and 1030. The value 
must be the same in each line. 

More Difficult Problems 

Just how difficult your prob- 
lems are going to be is deter- 
mined by line 8030. The two 
numbers (A and B) are directly 
related to the level of difficulty 
(L) the operator has attained. To 
increase the average difficulty 
for each level increase the value 
of the number added to L. (Be 
careful you don't go too quickly.) 

The IF statement of line 8030 
prevents the same problem from 
being presented twice in a row. 
if the problems involve division 
line 8035 shunts the program to 
line 8050 where a new number is 
obtained for A that will not in- 
volve decimals when the divi- 
sion is performed. The answer to 
a division problem will always 
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be an integer. 

If the operator elects to con- 
tinue in the same area of prob- 
lems, line 9220 sets the starting 
level at tfiree below the level just 
finished. Change the value sub- 
tracted from L if you want to 
vary this (the level cannot go 
below 1). When completing a 
series of 20 problems with a 
high score, the level of difficulty 
will advance through four levels. 
If you began in Level 1 and 
answered most of the problems 



correctly, on the next series you 
would begin in Level 2. 

The program holds the in- 
terest of children of all ages. 
(The multiplication and division 
problems will be more to the lik- 
ing of the advanced young- 
sters.) The combination of work- 
ing a computer and seeing in- 
stant results prompts them to 
continue the series over and 
over. It would be an ideal addi- 
tion to any primary school class- 
room. ■ 



. Program Listing 

le REM **» WRITTEN bV DON HfiSTlNGS 4/?3 +*• 

S) REM *** H£HiNGWflV. S C 29554 *+* 

'Si) fiEH *** VFtRIftBLES 

46 REM *** M = 1ST # e = 2N[J » t = CORRECT HNSl£ft 

50 REM *** D = bUESS L = LEVEL M ^ CHOICE 

Dd ISM ♦♦* H = NO S T = TIRNS S = SCORE 

7a REM ♦** R = RIGHT M = WRONG U « V ^ CONTROL 

lOe as F0RX=1T012( S£TiX,i;-HE:<T 

lie PRINT. PRINT, PRINT" SELECTIONS" 

158 PRINT:PRINT PRINT. PRINT/'tflj m>lUGtf PRINT. "1,6;; SUBTHiCTlON" : PRINT, 

"(C; nW.TIPLICflTION-:PRINT, "(D) DIVISION" 
140 F0i<X=lT0127:SET^^32).SETkX-12rSET(X.44j:NEXT 
15« PRINT * F7M." CHOICE ' 
ISe F0R¥=1T044 . SET kl, V^ : SET(127, V) ■ NEXT 
178 H$=1NK£VI:1F Fif=""THEN 176 
1S6 M=flSC^h$.i-64 

m aS.F0RX=ieT0itM.SETk^lJ:SET(X.12;:ltXT 
m PRINTS 138, "ENTER VOUR FIRST NWt:" 
m PRINlLl 4tW, ■' ■'. IHPUTfB 
2M PRINTS 138, "ENTER STHRTING LEVEL " 
24B PRINT? 464," "i . INPUT L 

25fl ON H GOTO 16«, 2660, 3006, 4606 

loee as. PRINT TRe^^a/'fi d & i t i n" GosoBsoee 
laia c=H+e prints 517,h, ■'*'■■.&, "= "-, 

1026 INPUT D.GUSUB7066 

16i« IF Hi.1 GOTO 1010 

1646 H=6 GOSUBee^eOOIU 1616 

2606 as. PRINT TMeaoCS U 6 T R fl T I N".bOSUB80e0 

2016 IF B:>H then C^ f(=B B=C 



2020 C=ft-e:PR]NTii 537.fl; "-";ei "= "; 

2636 INPUT D:GOSUe 7006 

2040 IF H<3 GOTO 2020 

2056 N=^GuSU6 6020. GOTO 2010 

3060 as. PRINT Tfieaar'M ultiplicfitio H":G0SUe8e« 

3010 C=fi*e:PRINT? 537.fl) "X".B. "= ", 

3020 INPUT D:G0SUe79ee 

3030 IF N<3 GOTO 3610 

3046 H=0: 005068626: GOTO 3010 

4060 CLS:PRINT TflBklarD I V I S i N" :GOSUES060 

4810 L^/B 

4015 F0Ri<=57T06b:SET(X.23J:NEXT 

4026 PRlNTe 53?,e,")"ift;" = "i 

4036 INPUT D.GOSUe7006 

4640 IF N<3 GOTO 4020 

4050 N=0:iaSUeS020:GOTO 4616 

7606 IF D=C THEN R=R+l.V=Vtl.GuTu?160 

7010 FOR Z=1TU5 PRINTS 676. "N 0" ' 

7020 FOR ¥=lTO10e;NEXT ¥ 

7030 PRINT* »5. ■' 

7640 FOR V=lT0ia6 HEAl V NEXT Z 

7056 N=Nn:U=U-t-l IF N':3 PRINTS 547. ■ VfSTURN 

7066 PRINTS 67a,C:W=H+l 

7B70 Fi» Z=lTO20e0.NE>;T;PRINI6 670, ' " RETURN 

7166 FOR Z=1T03:PRINTS 6S9, "V E S" 

7110 FOR V=lT01tM NEXT V 

7126 PRINT? 66s. " 

7130 FOR V=1TU1O0:N£XT r' *XT Z 

7140 IF U>5 THEN L=L-l.(J^b' IF La THEN L=l 

71KI IF V^ THEN L=L+1 V=6 

7160 N=3:T=T+1 IF T=26 GOTO 5060 

7170 RETORN 

SO00 F0RX^17T0104;SETk«.:O.I£XT PRINTC' 153. "L E V E L ' 

S010 PRINTS 265. "RICH T" PRINTS 206. "U ft N b' 

0020 PRINTS 164,L. PRlNTe iS2,R PRINT S 367,W. PRINTS 547." 

8036 H=RND(Lt4).B=RN0kL+3j IF ntt^ bOIO 8636 

8635 E=fi+SJF M=4 GOTO 8656 

8046 RETURN 

8656 fl=e*RNDiLt2.) RETORN 

9600 S=R/\R+W;:S=lNT',S»lti6' F0RX=57ru6b:RE=ETi,i<.23j :NEXT 

9610 PRINTS332,R:PRiNTS36?.W:PRlNIS 537.'' 

9026 FORX=lTO127:SETU,10jSET(X.lS>:SETiX,46;.NEXT 

j036 FORV=10TO18 . SET ^63. V> , I€aT . FORZ=lTO20e : NEXT 

9100 PRINTS53b, " VOOR SCORE 

9120 F0RX-1T016:PRINTS 666. ■' 

9136 FCftV^liUiaO NEXT V 

9146 PRINTS 668. S 

3150 FuRy=nO160.NEXT V NEXT X 

9160 PRINTS 784. 'miNT Tu PLOV rtGfllN. "iflt, INPUT X$ 

9200 N=0.r=6 W^e U-0:V=0 R-6 

9216 IF HSCi,X*J=76 GOTO 166 

3226 L=L-3 IF L\l 'iHiH L=l 

9236 GOTO 256 



|— CANADIAN INCOME TAXI 

T-1 GENERAL-1979 ^^''d^s'" '^"^ ''"'" " 

Needs Lev. M, preferably 2 Tape 
recorders, or Disks 
This program is a complete In- 
come Tax progr., usable not on- 
ly for your own return but also 
for use by professional Income 
Tax Preparers. It calculates all 
schedules, 1 to 10(schedule 11 
has not been implemented, 
because of the Fall of the Gov.) 
With it you can prepare income 
tax returns for Profit — You set 
the fee. 

This package is $90.00 + Ont Sales Tax 
To order send check (and slate your equipment con- 
fiSurationfto: J |^ SOFTWARE 

177 Linus Rd. 
Suite 608 
NORTH YORK-WiHowdale ^155 
Ontario, W2J 4S5 



V BIDAM IVow Available V 
* For TRS-80 '^ 



Basic Indexed Direct Access Melhod (BlUAM) is a disk 
a(;(;es5 melhod designed to simplify programming of disk 
applicaiion5, reduce disk I/O and spate requiiemenls and 
improve response rime, while maintaining a key-sequeneed 
index 10 a data file. BIDAM permits programmers to plat-e 
emphasis on applications r^her ihaii tile accessing rcch- 
niqiies, sorting, searching and disk space managemeni. 

BIDAM functions are performed by invoking basic sub- 
routines which include: key searching, changing, addition 
and deletion. Each subroutine returns a status code in- 
dicating the completion status oi the requested function 
and a record number to enable direct retrieval of any 
record on file with one U) '''O operatiort. 

BIDAM ON DISKETTE WITH SAMPLE 
APPLICATION $79.00 



I iratjeriiark „f me Radio Shack Di. 



. ul Tanily CuryOFcllic 



Task Computer AppLirAxioiMS 

Dayton, Ohio PO Box 24001 
45424 
(513) 233-2118 ^220 



THE canp-cflSE 




ATTACHE STYLE CASES FOR CARRYinC AND PROTECTirilj THE TRS SO 
COMPUTER, HIGH OUALiTV LUOQAGE COMSTBUCTIOM. OFHE CASE FOR 
COMPUTER, EXPAnSIOh UtilT, TAPE RECORDER OH DISK DRIVES. SEC 
OND CASE FOR MONITOR WITH EXTRA SPACE FOR MODEM OR MINI. 
PRINTER, MEVEB A NEED TO REMOVE EQUIPMENT FROM CASE, SIMPLY 
REMOVE COVER, COMMECT POWER AND OPERATE. COVER CAN BE 
REPLACED AUD LOCKED FOR SECURITY WITHOUT DISCOMnECTintj 
CABLES. OPTIOHAL RF-MODtJLATOR COMVfRTS AMY TV SET iriTO A 
MONITOR MAKING IT Uht^ECESSARV TO CARRY MONITOR, 

RS20I TRS-aOCompu Urease SI 09 

R5202 IRS- BO Monitor Case 8J 

SSM3 R^-Mod[lialo^ 25 

P402 Line Primer II Case.. 
CC90 Malcliina Allache Ca 



CQUPUTER CPSE CaflPflMV^isg 

5650 I^^D1A^ MO(J^D CT., COLCJMBUS, OHIO ^ST 
(614)668-9464 43213 ■■■■ 
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PROFESSIONAL 

INCOME TAX PROGRAMS 

FOR TRS-80 




TM 



Accountants, lawyers, tax consultants nationwide, prepared 
over 100,000 1978 Federal tax returns using our system. 

Displays and fills in Form 1040 and related schedules on the 
screen, then prints out the completed forms automatically. 

Change your mind? Make an error? Correct a single entry and 
you have a brand new form with all re-computations made 
automatically. 

No tax system, running on any computer anywhere, has all the 
features of our professional system, and yet— 

Our base program, which does 1040 and Schedule A costs only 

$189,95 

And! You can add schedules for only $37.95 each, customizing 
your system to your requirements. 

DEMONSTRATION CASSETTE $3.95 
(with sample forms) 

Requires 32K System, 2 Disk Drives 

We also have available fan-fold Forms 1040, blank stock, and 
other supplies you will require— all engineered and tested for 
use with TRS-80. 

FREE CATALOG AND BROCHURE TO PROFESStONALS 

CONTRACT SERVICES ASSOCIATES 

706 SOUTH EUCLID ANAHEIM, CA 92802 

TELEPHONE (714) 635-4055 
• • +20 YEARS OF SERVICE* • • 



flO 
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UTILITY 



Need more than one USR subroutine? 
Use this technique and have up to ten! 



Multiple USRs 



John Ventlmigha 

Box 1859 

Woodland Park. CO 80863 



The USR(X} function for the 
Level II TRS-80 is applicable 
to only one subroutine brancli, 
but by spending an extra bit for 
a disc drive you can access nine 
more branches. 

This is an imposition if you do 
extensive machine language 
programming. Frequently I set 
up subroutines for testing and 



find I need more than one (even 
ten) machine language calls. 

The solution to this problem 
is simple. The variable X in 
USR(X) passes an argument to 
your subroutine and this argu- 
ment can be made the address 
of another subroutine. Then, 
after implementing USR(X), the 
program jumps to this one 
allowable subroutine which 
picks up the value of X and 
jumps again. 

BASIC program 1 sets up the 
transfer. When run, the transfer 
program is loaded at the top of 



10 DATA 205,127,10,237,91,246,127,233 

20 B = (see listing 1) 

30 FORR = B TO B + 7: READY: POKER.Y: NEXT 

40 POKE 16526,(B/256 - lNT(B/256)).256 

50 POKE16527,INT(B/256): POKE B + 6,INT(B/256) 

60 DELETE 10-60 

Program 1 



1000 B = (see listing 1) 

1010 INPUT T: IF T<0 OR T>65535 THEN 1010 

1020 POKE B - 1,INT(T;256) 

1030 POKE B - 2,(T/256 - INT|T/256))-255 

1040 PRINT USR(X): RETURN 

Program 2 



memory after which the BASIC 
program self-destructs. 

After the transfer is run, any 
machine language program is 
accessible by putting its ad- 
dress (in decimal) within the 
USR( ) brackets. We are assum- 
ing that MEMORY SIZE? of your 
subroutines has already been 
answered. 

If your routines use their own 
stack and are initialized to your 
memory top, they will have to be 
adjusted to compensate for the 
transfer program, which uses 
the top 10 bytes. 

Though I rarely need to pass 
information to these routines 
directly, I thought it wise to in- 
clude such a provision. 

Program 2 is the subroutine 
used to pass an argument to 
your first program. The number 
is in the DE register pair rather 
than the HL pair. 

Line 20 in program 1 and Line 
1000 in program 2 must be 
finished according to your 
system configuration. Listing 1 
shows the values used in these 
lines according to the memory 
available. Line 1010 can be 
deleted, but remember to use 
variable T to pass a number to 





4K- 20472 




16K 32760 




32K 49144 




48K 65528 




V3lues for B 




Listing 1 


10 


ORG 7FF6H 


20 


STOR DEFW 


30 


CALL 0A7FH 


40 


LD DE,(STOR) 


50 


JP (HL) 




Listing 2 



your program. 

Listing 2 shows the 
mnemonics for the transfer pro- 
gram loaded by Program 1. This 
can be expanded so that all 
registers are loaded through 
BASIC. With this program you 
can call unlimited subroutines 
from BASIC with minimum 
problems. This is useful if 
you're testing subroutines that 
leave no room for your machine 
language monitor. All of your 
subroutines may be called from 
the command mode, even with 
no memory left.H 
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3 FEET BY 2 FEET 

GIANT! - VIDEO SCREEN 
DISPLAY WORKSHEET 

PRINTED ON ENAMEL STOCK AND THEN VARNISHED SO IT IS WASHABLE 
—No more looking in Level IP Manual for Video Layout. 




A MUST FOR SERIOUS PROGRAMERS! 



plus 1.50 postage 



TRS-SD' Regislered Trademark of Tandy Corp. 




CHECK WRITER! 






ALSO 



* TRS-80" 32K - 2 Disk Drives 

(No Printer Required) 

* 8 Accounts Per Ctieck 

* Balances Check Book - Keeps 

Current Balance 



* LIST OUT Checks, Accounts 

or Deposits (To Screen or Printer) 

* 100 Accounts 

* Complete Ettit Routines 



plus 1.50 Postage 



GOLF HANDICAPPER! 



TRS-Sfl" 32K - 1 Disk Drive - Printer * 

1D0 Members 

Figures Golf Handicaps by USGA 

(USGA Approved Method) 
Prints Handicap Card for Each Member 



Sorts all Members by Name, lists Handicap, g^ ^^'Ob 



CASH REGISTER 

48K - 4 Disk Drive 

Handles Cash Sale. 

Charge Sale, Deducts from 

Inventory. Post to Charge 

Accounts - Gives Receipt. 

Prints 2 Line Message at 

Bottom of Receipt. 



COMRLETE DOCUMENTATION!!! 



Number of Games Played. 
Latest Date Played 
...A MUST FOR 
TOURNAMENT PLAY! 

plus 1.30 Postage 




MICON MICRO SYSTEMS 
P.O. Box 360 
Azie, Texas 76020 
Ph. 817 444-1719 ext. 2 



t^212 



All Texas Residents 
add 5% Sales Tax 



CRISS-CROSS 

48K - 4 Disk Drive 

Total 5400 Names, Address 

Phone Numbers - Puts in 

Ptione Number Order. 



COMING SOON!! 

MAILING LABEL PULLER 

IMikai IddrMttng t Snip) 

HOLE PUNCH FOR BINDING 

COMPUTER MAfiAZMES 



Hdrdwdre 
Hdckers^ 

SAVES $WITHTESTER-80 



Hobbyists — Turn yourTBS-80' into an IC Tester with 
TESTE R-80. 

Select useable chips from the assortments of 
bargain basement chips available from many 
sources. Test suspect chips from probiem boards. 

TESTEB-80, plugged into your TRS-80' expansion 
connector wili test neariy all commonly used TTL 
and DTL integrated Circuit chips, trom 14 pin to 24 
pin. A master control program is loaded from your 
cassette interface, it itien loads in the individual IC 
test programs and performs a full functional test of 
the chip inserted in the lest socket each time you hit 
ENTER. 

TESTER-80, Master Control Program, TESTER-80 
Hardviiare Checkout Program and Test Programs tor 
21 commonly used TTL ICs $179.00. Allow approx. 
SIX vi-eeks for delivery, TEXTOOL socket $10.00 extra. 
Additional IC test programs $1.25 each (approx- 
imately sis to a cassette). 

Test programs currently available tor over 80 differ- 
ent TTL ICs, more on the way. Updated list on re- 
quest. 

S-SYSTEMS P.O. BOX 62 

PALM BAY, FL 32905 

(305)-725-1336 

< ► 

'TRS-80 IS a trademark ol Tandy Corp. ^ ,^1 



For Business Systems Software 

Programmers Only!! 

Machine Language 

ISAM 

FOR 

TRS-80* Models 1 and II 

ACCESS TIME Vi SECOND!! 

This machine language ISAM ROUTINE provides file access 
sophistication required lo implement complex business soft- 
ware, and is completely tompaiible with TRS-80* BASIC. 

Specifications; based on 1000 record file, key lengih of 6, 
data len^lh of 64 

Access time of '/: second 

Best add/delete time of I second 

Average add/delete time of 2 seconds 

Worst case add/delete time of 5 seconds 

Keys up to 25 characters 

Data up to 255 

Provides next highest key upon each file access. 

Preset range of allowable key values, set upon file creation 

up to 4 files held open concurrently. 

No special utilities needed to "Reclaim" used record space. 

Model 1 Routine occupies 5 K of user space (loads al top of 

user memory) 

Model II Routine occupies 6 K of user space (loads at top of 

user memory) 

EOF, file full, empty, key not found, INVALID key value 

and all TRS DOS' error codes supported. 

TRS-80 Model 1 (32 K -i- 48 K only) $160.00 
TRS-80 Model II (64 K only) $170.00 

Includes: All necessary documentation, file creation pro- 
gram, file inspection program, machine language ISAM 
routine and loader, 

sysrrMs zPLciPdAsis 

415 MULBURY STREET 
WORCESTER, MA 01607 

^197 (617)755-8134 



INC "X 



•TRSSO and TRSDOS are irademarks of Tandy 
Corporation, which has no relation lo RCR Inc.. 



T R S 80 USERS 




Preserve — Protect — Display 

your equipment with 

CRYSTAL CLEAR 
PLASTIC COVERS 

special offer: Buy both covers & save 

• Kcyhofird. inlerl^ace & CRT J 12,95 ea. 

• l.uit' printer SI 2.95 ea. 



[Combination price $21.95 j 
pfus $1.50 postage _] 



Combination price 
ptus $1.50 postage 

(Indiana residents add 4'i., sales tax) 



Crown Plastic Co. •^^^9 

3746 N. College 317-925-5566 
Indianapolis, IN 46225 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80 "* MICROCOMPUTER 



SOFTWARE 

FOR TRS-«0 " 

OWNERS 



H 



CQHIPIJTHQMICS 

MONTHLY NEWSMAGAZINE 

Practical Support For Model I & II 



MONTHLY 

NEWSMAGAZINE 

FOR TRS-SO" 

OWNERS 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



<^ 



«^ 



Ui 



WORD PROCESSING PROGRAM 

(Cassette or Disk) 

For writing Ifllers, \e\l. miiiling lists, elc with t'.ich 
new subsfnplions or renewal 

LEVEL II RAM TEST 

(Cassette or Disk) 

Checks random ciiress memory lo ensure ihai all memory 
locations are working properly 



PROGRAMS AND ARTICLES PUBLISHED IN OUR FIRST 12 ISSUES 

INCLUDE THE FOLLOWTNG: 

• A COMPLETE INCOME TAX PROGRAM (LONG AND SHORT FORM) 

• INVENTORY CONTROL 

• STOCK MARKET ANALYSIS 

• WORD PROCESSING PROGRAM (FOR DISK OR CASSETTE) 

• LOWER CASE MODIFICATION FOR YOUR VIDEO MONITOR OR PRINTER 

• PAYROLL (FEDERAL TAX WITHHOLDING PROGRAMl 

• EXTEND 16 DIGIT ACCURACY TO TRS 80'" FUNCTIONS (SUCH AS 
SQUARE ROOTS AND TRIGONOMETRIC FUNCTIONS) 

• NEW DISK DRIVES FOR YOUR TRS-SO'" 

• PRINTER OPTIONS AVAILABLE FOR YOUR TRS-80" 

• A HORSE SELECTION SYSTEM*"ARITHMETIC TEACHER 

• COMPLETE MAILING LIST PROGRAMS (BOTH FOR DISK OR CASSETTE 
SEQUENTIAL AND RANDOM ACCESS! 

• RANDOM SAMPl.ING'-'BAR GRAPH 

• CHECKBOOK MAINTENANCE PROGRAM 

• LEVEL II UPDATFS"-LEVFL II INDFX 

• CREDIT CARD INFORMATION STORAGE FILE 

• BEGINNER'S GUIDE TO MACHINE LANCiUAGE AND ASSEMBLY 
LANGUAGE 

• LINE RENUMBERING 

• AND CASSETTE TIPS, PROCiRAM HINTS, LATEST PRODUCTS 

COMINCi SOON (GENERAL LEDGER, ACCOUNTS PAYABLE AND 
RECEIVABLE. FORTRAN KO, FINANCIAL APPLICATIONS PACKAGE 
PROCJRAMS FOR HOMEOWNERS, MERGE TWO PROGRAMS 
SIATISTICAL AND MATHEMATICAL PROGRAMS (BOTH 
ELEMENTARY AND ADVANCED} AND 



DATA MANAGEMENT SYSTEM 

(Cassette or Disk) 

Complete file managemeni tor your TRS-80' 

CLEANUP 

(Cassette or Disk) 

Fast action Mazy Game 



TEM ^ 



TFiS Mil- IS A THAIJEMARK OY TANI>Y CORP 



SEND FOR OUR NEW 48 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS-; 
CASSETTE AND DISKETTEl. $2.00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE, 



PROGRAMS AVAILABLE ON 



^9 



iCQnPUTHQMICSi 

Boi 149 New Clly, N««w York 10956 

ONE YEAR SUBSCRIPTION $24 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 

(«1 - July 1978 • #7 - January 1979 • #12 - June 1979 • «1B - January 1980) 
NEW SUBSCRIPTION RENEWAL 




HOUR 
ORDER 
LINE 
(914) 425-1535 




CREDIT CARD NUMBER 

SiGNATURE__ 



EXP. DATE_ 



NAME 



ADDRESS 



STATE . 



— ADD $6A'EAR (CANADA. MEXICO) ■ ADD SI2/YEAR AIR MAIL - CMJTSIDE OF U.S.A.. CANADA & MEXICO ■ 



_ZIP_ 
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CQIYIPIJTHQMICS 



c. 



• • • EVERYTHING FOR YOUR TRS-80 • • • 

TRS-SO Is a irddrmark of the- Radio Shack Division of Tandy Corporation 

■A- All Orders processed within 24'Hours 

•k Free Shippir%g within U.P.S. areas (add $3 for orders outside of the U.S.A. or U.P.S. areas). 
* SO-Day Money Back Guarantee on all Software (less a $3 penaltii for handling). 
■* lO-Day Money Back Guarantee on Disk Drives and Printers PLUS 120-Dai/s Free Service. 



LEARNING LEVEL H by David Lien 

The Original Author Of The Level Manual 
A Step By Step approach to Learning Level II 
especially geared to new TRS-80'" Owners 
S15 95 



• TRS-80 DISK AND OTHER MYSTERIES 
$19.95 ($22.95 after 2/1/80). Over 100 pages 
ol indespensible information tor disk owners 
Learn to recover information front bad disks, 
how lo rnake Basic programs unlistable and 12 
more chapters of never published tips and infor- 
mation. Written by H C Pennington (For all 
Disk Owners) 



NEW SBSG BUSINESS SYSTEM FOR 
MODEL I OR MODEL II - IN STOCK 

- General Ledger 

- Accounts Receivable 

- Accounts Payable 

- Payroll 

- Inventory Control With Invoicing 

• Each module can be operated individually 
or as a coordinated SYSTEM. Turn-Key error 
catching operation for beginners 

• Complete manual and documentation 
accompany each program 

• Minimum System requirements 2-Disk 
Drives for Model l...1-Disk Drive for Model II 

• Each module can be formatted to span data 
on Upto 4-Dish Drives 

• Free 30-Day telephone consultation 

• Call for complete specifications 

• Model I Version $125 per module 
$495 per System 

• Model M Version $225 per module 
$995 per System 



DATA MANAGEMENT SYSTEMS 

- DMS replace index cards or any data 
requiring long lists of information. 

• TBS In-Memory Information System 

(for cassette systems) $24.50 

• TBS Disk Data Manager (requires 1 ormore 
disk drives), ..Set up fast random access 
files in minutes. Stores up to 320K of 
information on 4 Drives. Up to 10 fields 
and 255 characters per record. Supports 
upper and lower case RS-232 or TRS-232... 
Features complete editing $49.50 

• Personal Software CCA Data Management 
System... Completely user oriented, menu 
drive, 130 page Step by Step Manual... 
capable of inventory control, sorting data, 
reporting data in nearly any form (for reports 
and mailing labels). Sorts data by up to 10 
fields for zip code, balance due, geographic 
location Of whatever. Prints reports with 
subtotals and totals automatically calculated. 
Fast random access $75.00 



ICDiriRrmQMICS! 



hACn VtMTUjhL A^^-CLOriTs* «C»V1CC 



Box 149 New City, New York 10956 



FROM RACET COMPUTES 

• REMODEL-PROLOAD - Renumbers pro- 
gram lines, combines programs. The only re- 
number program that will renumtier the middle 
of 3 program Specify 16K, 32K or 48K Works 
with Cassette or Disk . . . S34.9S 

• GSF - Use in your Basic Programs for Instant 
Sorting (will sort 1000 items in 9 seconds) Other 
commands include Cempress and Uncompress 
Data, Duplicate Memory, Display Screen 
Controls and Fast Graphic Controls . . . $24.95 
(For Cassette or Disk, specify 16K. 32K or 48K) 

• DOSORT - All G S F. commands plus special 
Multiple Disk Sorting Routines . . . (34.95 
(Specify 32K or 4eK) 

• INFINITE BASIC - Adds 70 commands to 
your TRS-80 including Instant Sort, Matrix 
Commands. String Commands, Left and Right 
Justidcation, String Centering, Simultaneous 
Equations, Upper and Lower Case Reverse and 
more . . . S49.95. (For Cassette or Disk). 

■ INFINITE BUSINESS (Requires Infinite Basic) - 
Eliminate Hound-off error 127-Digit Calcula- 
tion Accuracy. Insert New Elements in Sorted 
Arrays, Automatic Page Headings, Footings, 
and Pagination. Multiple Precision Arithmetic 
and more . . . (29.95. (For Cassette or Disk). 

• COPSYS - Copy t^achine Language 
Programs . . . $14.95 (For Cassette only) 



FROM SMALL SYSTEM SOFTWARE 

• RSM-2 Machine Language Monitor . . , S26.95 

• RSM-2D Disk Version of RSM-2 . . . $29.95 

• DCV-1 Converts Machine Language Programs 
from tape to disk . . . $9.95 

• AIR RAID - The ultimate TRS-80 game con- 
verts your TRS-80 into a real tinne shooting 
gallery . . . $14.95 

• BARRICADE - A fast pong style game . . $14.95 

• CPM - $150 (tor Disk only) 

• TRS-232 INTERFACE - Interface with Soft- 
ware driver RS-232 printers to your 

TRS-80 . . . $49.95 

• TRS-232 FORMATTER Additional 
(optional) Software for TnS-232 owners Ads 
many printer commands to your 

TRS-80 . . . $14.95 ($9.95 with purchase of 
TRS-232) 



MAIL PAC - For Model I or Model It Disk 
Systems only . . . $99.95. Quick-sorting fuM user 
control over mailing list from Gallactic Software 



FROM ADVENTURELAND INTERNATIONAL 
• ADVENTURE #1 - #8 by Scott Adams - 
$14.95 tacti . . available on Cassette or Disk 



SARGON II 

THE CHESS CHAMP 

$29.95 



FROM APPARAT 
NEW DOS * $99.95 

35. 40 and 77 Track Versions available 



48-Page Catalog $2 FREE With Any Order 

Order by Phone or Mail 

No Shipping Charge 

Add$3forC.O.D. 

Add $3 for all Foreigr} and non-UPS shipments 

Add $3 for UPS Blue Label 



FROM THE BOTTOM SHELF 

• CHECKBOOK II (for Cassette or Disk) . . 
S1B.50 

• INFORMATION SYSTEM (for Cassette or 
Disk . . . $24.50 

• SYSTEM DOCTOR (a complete diagnosis of 
your TRS-SO checks memory, video, cassette, 
disk, ROM and all other parts of your system) - 
(or Cassette or Disk . . . $28.50 

• CHECKBOOK REGISTER ACCOUNT- 
ING SYSTEM (requires2 disk drives).. $49.50 

• LIBRARY 100 - 100 established business, 
game and educational programs plus FREE Tiny 
Pilot all for . . , $49.50 

• BASIC TOOL KIT - lists all variables, GOTOs 
and GOSUB's in your program . . . $19.80 



SOUNDWARE - Ads sound to your TRS-80. 

Just plus It in . . .$29.95. Sample programs 

included. 

TING TONG - Can be used with Soundware 

for a Sound version of pong . . . $9.95. 



VIC-The Carta Visual Inslruclional $19 95 

Computer Program 

The Level II 16K Cassette is designed to teach 

beginners the Basics of Machine Language and 

Assembly Language Programming See every 

Machine Language Instruction Display on 

your Video 

VIC includes a Step By Step 55 page manual 



VISTA V80 DISK DRIVE 

110 K OF STORAGE 

S395 

Add $29,95 for Cable 

(Free with Purchase of Two Disk Dnves) 

— 10 Day Money Sack Guarantee — 



FROM HOWE SOFTWARE 

MON-3 - Machine Language Programming for 
Beginners. MON-3 is a Complete 
System Monitor with Users 
Manual . . . S39.95 

MON-4 - Disk Version of MON-3 . . . $49.95 



LEVEL III BASIC . . . $49.95 FROM 
MICROSOFT • Now Cassette owners can add 

Disk Commands to their TRS-80 without owr)ing 
a Disk Drive. 



BRAND NEW OLIVETTI PRINTER . . .$2495 

Business Letter quality print, Automatic Line 
Justification {on request), Quick Printing, can 
be used as a Memory Typewnter, plugs right 
into your TRS-SO without any modification or 
software. 



THE ELECTRIC PENCIL 
CasMH* . . . $99.95 

Dltk . . . $150.00 



HORSE SELECTOR II by Or Hal Davis . . . 
$50. The TRS-80 version updated for the TRS*80 
and originally reviewed in Systems and 
Methods 



^^ 



24 

HOUR ORDER LINE 

(914) 425-1535 




i^ Reader Service— see page 147 
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UTILITY 



Shorten your T-BUG and 
customize it at the same time. 



T BUG for II 



H. Allen Curtis 
172 Dennis Drive 
Williamsburg VA 23185 



Have you ever wondered 
why T-BUG for Radio 
Shack's Level II TRS-80 micro- 
computer requires V? K bytes 
more memory than it does for 
Level I? There are two reasons 
for this: The Level II T-BUG 
makes absolutely no use of 
ROM subroutines and the Level 
II stack is much larger than the 
Level I T-BUG stack. 

This article presents detailed 
steps for the shortening and 
customizing of Level II T-BUG. 
Shortening T-BUG is accom- 
plished by replacing some 
T-BUG subroutines vi/ith ROM 
subroutines and by utilizing a 
stack employed by the ROM. 
With the memory made avail- 
able by deleting those T-BUG 
subroutines new commands 
can be added and others im- 
proved to produce a customized 
Level II T-BUG. 

Step 1 

In this and all succeeding 
steps, addresses and their con- 
tents will be given In hexa- 
decimal. This step replaces 



some of the L command's 
T-BUG subroutines w/ith ROM 
subroutines. T-BUG calls to ad- 
dresses 47CA, 4762, 4782, and 
47C5 are replaced by calls to 
464B, 0296, 0235, and 01 F8. The 
latter calls initiate the follow- 
ing ROM subroutines: define 
drive; look for leader; sync byte; 
read one byte; and turn off 
cassette. 

Replace the T-BUG subrou- 
tines using the M command in 
accordance with Table 1. In the 
table, if the contents portion of a 
line has two or more pairs of 
hexadecimat numerals, the 
associated address represents 
the first of a pair or trio of adja- 
cent addresses. 



ADDRESS 


CONTENTS 


4644 


4B46 


4647 


96 02 


4649 


18 07 


464B 


AF 


464C 


CD 12 02 


464F 


C9 


4653 


35 02 


465C 


35 02 


4661 


3F3C 


4666 


3F3C 


4669 


35 02 


4674 


35 02 


467D 


35 02 


4686 


35 02 


4699 


F8 01 


469D 


35 02 


46A1 


35 02 




Table 1. 



Thus, for the first line, 4B is 
the contents of address 4644, 
and 46 is the contents of 4645. 
The changes in the ninth and 
tenth lines relocate the blinking 
asterisk to conform with the 
ROM subroutines. After all the 
changes are made, check the L 
command to see that it still 
functions properly. 

Step 2 

Some of the P command's 
T-BUG subroutines are replaced 
by ROM subroutines in this step. 
Substituting for T-BUG subrou- 
tines are the ROM subroutines 
define drive, write leader and 
sync byte, output byte and 
cassette off. The substitutions 



ADDRESS 


CONTENTS 


46DE 


4B46 


4BEB 


CD 87 02 


46EE 


18 OB 


46FE 


64 02 


4706 


64 02 


4713 


64 02 


4717 


64 02 


4725 


64 02 


4729 


64 02 


4731 


64 02 


4737 


64 02 


473D 


64 02 


4740 


F8 01 


4746 


64 02 


474A 


64 02 


4750 


64 02 


4759 


64 02 




Table 2. 



are made using the M command 
with Table 2. 

After making the indicated 
changes, test the P command to 
see whether it still functions 
properly. Using the ROM sub- 
routines in steps 1 and 2 has 
made available memory loca- 
tions 4762 through 47DE. Loca- 
tions 46F0 through 46FA were 
also made available. To check 
the accuracy of the latter two 
statements, set to zero the con- 
tents of all the indicated loca- 
tions and then check each of the 
T-BUG commands for proper ex- 
ecution. 

Steps 

Have you ever found the use 
of a three-byte instruction (CD 
80 43) in the B command to be in- 
convenient? If so, you will be 
happy with this step. Step 3 re- 
places the three-byte instruc- 
tion CD 80 43 with the one-byte 
instruction EF. 

Did the machine language 
program you were debugging 
ever get into a tight loop, forcing 
you to use the reset button, 
enter SYSTEM and then enter 
/17312 (where the latter address 
is in decimal) to return to debug- 
ging? If so, this step will make 
you still happier. Pressing the 
BREAK key provides a conve- 
nient entry from READY to 
T-BUG. The new B command 
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CHEAP BOOKKEEPER 



A GENERAL LEDGER SYSTEM 



See to Believe 

Sold by Sturdivant and Dunn, Inc. for Radio Shack TRS-80* 
Mode! 1 Level II 32 or 48 K systems with 2 drives and at least 

an 80 character per line printer. 

Send $1,00 for information and sample printouts {14 pages) 

to Sturdivant and Dunn, Inc., Box 277, Conway, NH 03818. 

^82 Price is $175.00. 

TKS-80 is a Trademark o{ Radio Shack, a Division ot Tandy corporation. 



PROGRAMS THAT MAKE 

TRS 80-A SERIOUS 

BUSINESS COMPUTER 



REAL BUSINESS SOFTWARE 
FOR PROFESSIONALS 
BY PROFESSIONALS 

ACCOUNTS PAYABLE - ACCOUNTS 
RECEIVABLE - GENERAL LEDGER 
PM SCHEDULING - INVENTORY 
CONTROL - CUSTOM PROGRAMS 
JOB COST - PAYROLL 



WRITE OR CALL (408) 262-8964 
FOR DETAILS OF SPECIFIC PROGRAMS 



ALL PROGRAMS GUARANTIED 



iD^Dl 



ir\ir. 



1^198 



2146 BERING DR SAN JOSE, CA 95131 



GIN! 

YOUR TRS-80 CAN BE 
A TOUCH OPPONENT 

GIN RUMMY 2.0 plays astrong game, good 
enough to challenge an expert player 
Piays a full regulation game, keeps score to 
game level, allows rearrangement of 
player's hano, and changes strategy to 
counter Its opponent's play Hours of good 
card playing, a fascinating program, one 
you'll enjoy playmg against and trying to 
beat. MCR-1 $ia.95 

CHECKBOOK PLUS solves the problem of 
monthly bank statement reconciliation. 
No cumbersome tape record keeping. Just 
do your checkbook once a month and let 
Checkbook Plus handle all the details and 
find the errors. MCB-I S9.95 

CALCULATOR PLUS isanon-screen or print- 
ing calculator, with chain and mixed calcu- 
lations, memories for answer storage or 
calculations with constants, item count 
and on-screen or printed review of long 
add-and-subtract operations. Optional 
dollar format. MPC-1 59.95 

CHECKBOOK PLUS and CALCULATOR PLUS 

both on one cassette. MC-2 Ji4.95 

THE LISTMAKER Powerful, versatile pro- 
gram allows entry of 400 names with 
codes In 16K. Lists by code on-screen or to 
printer Sorts, provides editing of name or 
code, dumping, loading lists, ideaiforclubs, 
organizations, small businesses, i.idividuals. 

gjj MLM-1 $9.95 

MANHATTAN SOFTWARE, Inc. 

P.O. Box 5300 Grand Central Station 
New York City, New York iooi7 



You will appreciate this accessory every time you turn your computer on! 



READ THIS 



• Give your CRT the luminous green characters found on the very expensive computer 
systems 

• Add a professional look to your system and your programs. 

• Dramatically improved contrast for easier reading and improved graphics. 

We manufacture an optically correct, 1/8" plexiglas" screen that mounts easily over the 
CRT on your video monitor This is a quality accessory thai enables your TRS-SO" 
monitor to produce the luminousgreen characters identical to those found on expensive 
terminals For businessapplicationsthis means enhanced appearanceand reduced eye 
strain, for the hobbyist, graphics are brighter and bolder The screen may be easily 
removed 



A 



no modification to monitor. 

Screen for Model I $1 9,95 

Screen for Mode! 1! $24.95 

^142 VISA- Mastercharge 



We ship within 
24 hours. 

30-day money back 
guarantee 



National Tncor, Inc. / 3335 Greenleaf Blvd . Kalamazoo, 1^1 49008 / 616-375-7519 



WE MEAN BUSINESS! 

BUSINESS SOFTWARE, THAT IS 



TRS-ilO 



USE YOUR 
FOR MORE 
imi FUN AND GAMES 



THE DATA DOBBER S 49.95 

Dijplltale5 any program tape lo rRS-60 quality Recon- 
slnjiLls dale pulses to ensui'e accurate CLOADs Permits 
easy loading of ewn poor quality tornmeririal tapes with- 
out constant volume ad|usling. Moneyback guarantee if 

not satisfied. 



THE ELECTRIC SECRETARY S75.00 

A powerlul word ptocessor to turn your TRS'80 inlo an 
automatii: typewnler. Features page numbering, movable 
matgins. headers, vanable page length, and title tenlenng. 
Enter text, tewse. conect, and output lo pnnter page for- 
matted, justified, even hyphenated as required Cross 
L oupling files permits individually addressed form letters. 
Complete with upper, lower case converiioii information 
on diskette. Specify if RS-232 adapter is installed in 
interlaif 

MAILROOMPLUS S75.00 

A versatile and powerful rridiling program to print labels 
by sequential coding: zip, city, state, customer ID code, 
even last name. Sorts by any code in minutes and stores 

sequentially in a single string (approK- 1500 records per 
diskettel Includes AUTOPRINT Supplied on diskette 

/vurniMAJL S 50.00 

A compact version of MAILROOM PLUS but without 
customer coding Features alpha looka head for dupli 
cates Suppljt'd on diskette 

FORMLET 535.00 

Generates form letters from MIMMAII riKords Prepare 
your letter bulletin. riotn e. advert rse me nt, etc , then load 
the MIMIAVML tiles Your pnnter u/ill pnnt the inside 
address, letter, and repeal for each name in the file— ail 
properly spaced and justified Supplied on cassette 

AtlTOBOOT S 1 5.00 

Simplifies autorndtir liASIC program loading from your 
1X)S. Permits sequencing through your choice of DOS 
commands, selects files and memory size you specify, and 
loads or runs selected program. Allows user to see direc- 
tory and free space before program runs automatically 
Supplied on cassette 

SiRECHO S 1 0.00 

.A handy program to make your pnnter work like an 
electric typewriter Use alone or merge with your programs 
to make what appears on the screen echo to the pnnter. 
Supplied on cassette 

TELEFOrn S 20.00 

Make your TRS'80 a smart terminal. Communicate with 
time share and other computers, bulletin boards, etc 
Transfer programs over the phone. For disk systems with 
modem 

UPPER/LOWER CASE CONVERSION S20.00 

Repnnt of KILOBAUD arnde esplaining how to moditythe 
TRS-80 to display tioth upper and lowercase characters. Kit 
contains step-by-step in strut-Dons, parts, and necessary soft- 
waie on cassette lor case reversal, ectxj. and automaLc line 
feed routines. 



User group discounts available 
Dealer inquiries invited 



'TRS 80 IS d trademark of the Tandy Corp 



TERMS Cneck money oi- 
aer. Visa Mastercharge 
Washington residents add 
5 3% for tax 



THE PERIPHERAL PEOPLE 

PO.Box524,Dep't.M 
Mercer Island, WA 98040 

* ^43 (206)232-4505 



t^ Reader Service— see page 147 
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ADDRESS 


CONTENTS 


4762 


21 0C40 


4765 


36 C3 


4767 - 


23 


4768 


36 FO 


■176A 


23 


476B 


36 46 


4760 


EF 


46F0 


ED 43 39 48 


46F4 


CI 


46F5 


C3 87 43 


47F1 


7E 


47F2 


32 50 46 


47F5 


36 EF 


47F7 


C3 A5 43 




Table 3 


ADDRESS 


CONTENTS 


43 Ea 


FA 47 


47FA 


CD 32 45 


47FD 


2A 3B 48 


4800 


3EEF 


4802 


BE 


4803 


20 07 


4805 


3A 50 46 


4808 


77 


4809 


C3 A5 43 


480C 


2A 3D 48 


480F 


36 45 


4811 


18 F6 




Table 4 


ADDRESS 


CONTENTS 


442D 


20 


476E 


FEOD 


4770 


28 06 


4772 


21 3B 44 


4775 


C3 33 44 


4778 


DD2B 


477A 


C3 40 44 




Table 5 



K=17456:POKEK,195:POKE K + 1.110:POKE K + 2,71 



Example 1. 



and T-BUG entry are produced 
by carefully using the M com- 
mand shown in Tabie 3. 

After malting the indicated 
changes, test the T-BUG entry 
as follows: Use the Jump com- 
mand, J4762, to set up the 
BREAK key entry. Address 4762 
will eventually replace 43A0 as 
the T-BUG entry address. Press 
the reset button at the left rear 
of the keyboard unit. When 
READY appears on the screen, 
press the BREAK key and the 
T-BUG prompt # should appear. 
Check the B command for prop- 
er execution but do not use the F 
command in checking. The F 
command is not compatible 
with the new B. This step has 
made available memory loca- 
tions 47FA through 480C. 

Step 4 

This step makes the F com- 
mand compatible with B and 



adds an error message feature. 
If you should press F when the 
instruction at the address in PC 
is not EF, the instruction will not 
be changed. Furthermore, an E 
will appear on the screen (as it 
does in the case of an E com- 
mand error). Carry out this step 
using the M command and 
Table 4. 

Test the new F command with 
commands B and G. Be sure to 
check out the error case. This 
step has freed memory loca- 
tions 4813 through 4824. 

Step 5 

This step modifies the M com- 
mand. The space bar will be 
used to advance from the cur- 
rent address to the next higher 
address. ENTER will be used to 
go from the current address to 
the next lower address. The 
modification is partially made 
by using the M command and 
Table 5. 

To complete this step the con- 
tents of addresses 4430 through 
4432 need to be changed. These 
must not be changed using the 
M command! Use of the M com- 
mand in this particular area of 
T-BUG would make a disaster of 
the thus far modified T-BUG. To 
make the necessary changes 
exit T-BUG by pressing the reset 
button. Then type in and enter 
Example 1. 

Press the BREAK key to re- 
turn to T-BUG. Test the M com- 
mand for proper execution by 
using the space bar to advance 
addresses and ENTER to de- 
crease them. 

Step 6 

The aim of this step is the 
creation of a new T-BUG com- 
mand—the Dump command. 
Typing Dnnnn, where nnnn is a 
4-digit hexadecimal address, 
displays sixteen consecutive 
addresses starting with nnnn. 
Each address, except nnnn, also 
displays its hexadecimal con- 
tents and the corresponding 
ASCII character. Address nnnn 



only displays its hexadecimal 
contents. The addresses and 
their contents, hexadecimal and 
ASCII, are displayed in columns 
using all sixteen lines of the 
screen. To display each suc- 
ceeding set of sixteen address- 
es and their contents press the 
space bar. The ASCII represen- 
tation of the contents of all six- 
teen addresses are displayed. 
To exit from the D command 
simply type X. The M command 
and Table 6 will add D to 
T-BUG's repertoire. 

A call to 002B, the ROM scan 
keyboard routine, could have 
been used on the twenty-first 
line of Table 6, but CD 5B 03 was 
used so the following point 
could be made. The TBUG man- 
ual states that both DE and lY 
must be saved and restored in a 
keyboard scan routine. The sav- 
ing and restoring of DE is not 
necessary if CD 5B 03 is used in 
place of CD 2B 00. 

Try out the D command in a 
section of the ROM starting at 
0100. Using D on T-BUG itself 
would not be advisable. 

Step 7 

Another new command, Ver- 
ify, can be added to the T-BUG 
repertoire, analogous to the 
CLOAD? command. The V com- 
mand verifies without loading 
machine language programs 
recorded by the P command. If 
any byte on tape does not agree 
with that in memory, the 
recorder is immediately stopped 
and an E appears on the screen 
next to V. The M command and 
Table 7 will add the V command 
to T-BUG. 

Steps 

This step relocates the T-BUG 
stack to a RAM stack location 
employed by the ROM. By 
changing the contents of three 
pairs of addresses; 43A1, 43A2; 
43A6, 43A7 and 43C2, 43C3 to 
88, 42 your machine language 
programs may now be written 
using any address from 4851 
through the end of memory. To 



ADDRESS 


CONTENTS 


43FE 


C3 7D 47 


477D 


CA 93 43 


4780 


FE44 


4782 


C2 01 44 


4785 


21 29 44 


4788 


36 C9 


478A 


CD OD 44 


478D 


06 OF 


478F 


DDE5 


4791 


El 


4792 


4E 


4793 


D9 


4794 


CD 3B 44 


4797 


D9 


4798 


71 


4799 


23 


479A 


4E 


479B 


2A 3D 48 


479E 


71 


479F 


10 EE 


47A1 


CD 5B 03 


47A4 


06 10 


47A6 


FE20 


47A8 


28 E5 


47AA 


FE58 


47AC 


20 F3 


47AE 


21 29 44 


47B1 


36 CD 


47B3 


CD B8 44 


47B6 


C3 AB 43 




Table 6 


ADDRESS 


CONTENTS 


4408 


03 B9 47 


467C 


C3 C7 47 


47B9 


16 00 


47BB 


CA06 45 


47BE 


15 


47BF 


FE56 


47C1 


CA 06 45 


47C4 


C3 OB 44 


47C7 


5E 


47C8 


CD 35 02 


47CB 


73 


47CC 


5F 


47CD 


96 


47CE 


A2 


47CF 


20 07 


47D1 


73 


47D2 


23 


47D3 


7B 


47D4 


8) 


47 D5 


03 32 46 


47 D8 


CD F8 01 


47DB 


18 2F 




Table 7 



record the customized T-BUG on 
cassette tape, type; 

P4380 4812 4762 TBUG 

and press ENTER. You may find 
it convenient to record the 
modified T-BUG several more 
times on the tape. Before 
making the final recording, 
change the contents of address 
43DE to 26. The last recording of 
T-BUG will then have an & for a 
prompt instead of the usual #. 
The & prompt indicates the tape 
needs rewinding before loading 
T-BUG the next time. ■ 
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""dr. HOWE'S SOfTWARE^ 

For the TRS-80 {*) 

MACHINE LANGUAGE 
SOFTWARE 

MONITOR #3 $39.95 

Disassembler; memory displays; memory move 
search verity, and modify; tead and write object 
tapes; hexadecimal arithmetic; object code reloca- 
tor; unload programs for disli; symbolic output 
tapes; 41-page instruction manual. 

MONITOR #4 $49.95 

Same as Monitor #3 but adds: save and read disk 
files; direct input and output of disk sectors; send 
receive, or talk to another computer via RS-232-C in- 
terface; symbolic disassembly on disk 

SMART TERMINAL $49.95 

Enables your TRS-80 lo be used as a remote terminal 
to a time-sharing system. Supports lowercase and 
full range ot control keys. Automatic transmission 
betv^een memory and host computer. Much more 

PACK/UNPACK $24,95 

Increase disk tile capacity by 33% wilh NO NEW 
HARDWARE. Applies only to strmg dala in random 
files. Ideal for mailing lists, etc 

GAME OF "LIFE" $5.95 

John Conway's game of "life" shows patterns evolv- 
ing and changing swiftly before your eyes. A dazzl- 
ing demonstration program! 

BASIC SOFTWARE 

MAILING LIST $69.95 

Maintains mailing list tiles of over 1000 names per 
diskette Add, delete, change, find name, machine 
language sort, print tile. 

SMALL BUSINESS ACCOUNTING $49.95 

Based on Dome Bookkeeping Journal #612, keeps 
track of income, expenditures, and payroll for a 
small business of up to 16 employees. Daily, month- 
ly, year-to-date summaries. 

HOME BUDGET $49,95 

Checkbook maintenance combined with records of 
income and monthly Bills. Monthly and year-lo-date 
summaries showing tax deductions 

DATABASE MANAGEMENT $29.95 

Define files of any description and maintain on cas- 
sette or disk. Add, change, delete, find, sort, justify 
print, line print, total fields, write. 



HOWE SOFTWARE ^103 

14 Lexington Road 

New City, New York 10956 

CI TRS-80 is a registered trademark ot Tandy corp. 




THEIR 
BLUE 




Do your TRS 80'S limitations hit a sour note? Our full line of 

business-oriented software can change that tune. 

They're easy to use, modularly designed, and superiorly 

documented, giving you versatility and sophistication of a higher 

scale, at a price you'll sing about- 

So write us, and we'll send you the score. 

SMALL BUSINESS SYSTEMS GROUP 

GROTON STREET, DUNSTABLE, MA. 01827 (617) 649-9595 ^is 
"TBS-aO is a registered trade mark of Radio Shack, a division ot Tandy Corp. 



X?1MALL 
k-lYSTEM 



PR0DUCTSfS?TRS-80* 




MALL 
YSTEM 



MACHINE LANGUAGE GAMES 

AIR RAIB, BARRICADE or RSL-1 : - SID.OO eacti, all 5 for SZ5.0D 



AIR RAID: A super Bhooting gallery; 
missile launcher slioots high speed ai 



most popular gami 
aft! Hours of furil 



BARRICADE: "BREAKOUT" for ttie TfiS-BO! Break through 5 walls uith 
high-speed ball and keyboard controlled paddle! 96 different options! 

RSL-1: Enter patterns uith repeating keyljoard! Save patterns on tape t4 
furnished). Play John Conway's LIFE, FAST - about 1 second per generation! 

AWEHTUHE! SU.9S each, (3 or more, S12.50 each) 

7 versions: 1-Adventure lard, ^-Pi^ate's Adventure, 3-Hission Impossible, 
4-Voodoo Castle, 5-The Count, 6-Strange Odyssey, 7-f1ystery Fun House. 

UTILITIES 

■SB-?: BACHINE LANGUAGE BOHITOR FOR 161; TRS-BO'S - >?6.95 
RSII-2D: THREE VERSIONS OF RSN-2 FOR DISK STSTEBS - ?9.95 
RSn-2 RELOCATOR: PUT KSW-ZIZt> ANYWHERE IN nEHORT - 9.95 

tiachine Language ™ionitors with 2-80 disassembler! HEX and ASCII memory 
dumps; EDIT, HOVE, EXCHANGE, VERIFY, FILL, ZEBO, TEST, or SEARCH memory, 
read/write SYSTEM tapes, enter BREAKPOINTS, PRINT with TRSZ32 or Centronics, 
read/write disk sectors directly! RSM-3 tape loads at top of 16K LEVEL I or 
11; ftSM-?D disk includes 3 versions for 16K, 32K and WK. 



DCV-1: CONVERT SYSTEM PROGRARS TO DISK FILES -*9.9S. Execu 
Air Raid, RSL-1, ESP-1, T-BUG, etc. from disk, even if they 
TRSDOS! New version works with TRSDOS 2.3, 



JentL 



BASIC-IP: LEVEL-! BASIC HUH PRINTING! - *19.95, Bun any LEVEL-I BASIC 
prograir on your.16»: Level-2. PLUS LPRINT and LLIST with our TRSE5i or 
Centronics, Furnished on tape; can be used from disk. 

OTHER PRODUCTS FOR THE TRS-80* 

ESP-1: S29.95. Assembler, Editor, Monitor C8080 mnemonics) 
LST-1: 8.00. Listing of LeveL-1 BASIC with some comments 

See your dealer or order direct from Small System Software! 
CALIFORNIA residents please include 6* for state sales tai. 



SMALL SYSTEM SOFTWARE 



P.O. BOX 366 



NEWBURY PARK, CA 91320 



MODELII TRS-80* 

CP/B" l/ERSION 2.0 FOR THE fWDEL-II - «170.00. Latest version from Digital 
Researcli. Runs both single and double density disks! "Standard" uersion 
runs nearly any CP/M software, including Cobol, Fortran, C-Basic, M-Basic, 
business and accounting packages, etc. Hundreds of programs available' 

RSBII: ENHANCED RSH HONITOR FOR THE PWDEL-II - J39.9S, Relocatable version 
of RSM-2D plus screen editor for modifying either memory or disk sectors in 
both Hb« and ASCII, split screen scrolling, and formatted serial or parallel 
printing. Sold on self-booting disk; directions to save as TRSDOS file. 

PROFESSIONAL SOFTWARE 

BICROSOFT BACRO ASSEBBLER - S80.00. Editor, Linki;ig Loader, Editor, Cross 
Reference utilities. Produces relocatable code! Requires J2K, 1 disk. 



MICROSOFT FORTRAN - S80.00. Fortran Compiler, Edit 
Loader forms Fortran, Assembly and Library modules ir 
disk. SAVE! Order both Ptacro-Assembler and Fortran for $150.00. 



Library. Linking 
ne program! iEK, 1 



THE ELECTRIC PENCIL FOR THE TRS-80: TAPE-»99.95, DISK-I1 50.00. Popular 

video editor for creating and saving te«t files. Prints formatted copy with 

right justification, page titling 8 numbering, etc. Upper case ont/, or 
lower case witti modification. 16< Level-1 or 2 (tape), 

CP/H" OPERATING SYSTEB FOR THE NODEL-I - SU3.00. The 3080/180 "Software 
Bus for tne Model-1 TRS-80. Includes TRSZiZ and RS-23J-C software, 
lower-case support, debource, DCV-2 and other unique utilities. Allows use 
of man/ available programs written for CP/M, 

PRINTER SUPPORT 

TRS232 PRIHTER INTERFACE - $49.95 (+S2.00 shipping). Assembled and tested 
printer interface tor HSJ52 or 20-mil current Loop printers. E«pansion 
interface not required. Print from level-II BASIC, CP/M, 8flSIC-1P, ELECTRIC 
PENCIL, etc. Standard cassette software included. 

THS23Z "FORHATTER" SOFIHARE PACKAGE - 114.95. Adds page and line length 
control, printer pause, "smart" line termination, etc. to TRS252. 

RSMa2: Adds RS-232-C capability to R5M-?/JD - 19,95 
PEN232: RS-233-C for cassette Electric Pencil - -9.95 
EDT23?: TRS23? and RS-232-C for disk/tape EDTASM - 9.95 



•♦CP/M tm Digital Research, Inc. 



tm Tandy Corp. 



^2G 



SMALL SYSTEM SOFTWARE 



P.O. BOX 366 



NEWBURY PARK, CA 9)320 



(v* Reader Service — see page 147 
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• • • EVERYTHING FOR YOUR TRS-80 • • • 

TRS-80 Is a trademark of Ihe Radio Shack nivlfiion of Tandy Corporallon 

COORDINATED BUSINESS SYSTEMS 




SMALL BUSINESS 
SYSTEMS GROUP 



• EACH MODULE CAN BE OPERATED INDIVIDUALLY OR AS A COORDINATED SYSTEM. 

• TURN-KEY ERROR CATCHING OPERATION FOR BEGINNERS 

• FREE 30-DAY TELEPHONE CONSULTATION WITH SBSG 

• EACH MODULE CAN BE FORMATTED TO SPAN DATA ON UPTO 4 DISK DRIVES, 

• COMPLETE MANUAL AND DOCUMENTATION ACCOMPANY EACH MANUAL 

• MINIMUM SYSTEM REQUIREMENTS - 2 DISK DRIVES FOR MODEL l,..1-DISK DRIVE FOR MODEL II 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. In 
addition, it produces cash management reports. This system aids in tight 
financial control over all cash disbursements of the business. Several 
reports are available and supply information needed for the anaiysis of 
payments, expenses, purchases and cash requirements. Ail A/P data feeds 
General Ledger so that data is entered into the system just once. These 
programs were developed 5 years ago for the Wang micro-computer and 
have been tested in manyenvironments since then. The package has been 
converted to the TRS-BO'" and is now a well documented, on-line, inter- 
active micro-computer system with the capabilities of (or exceeding many 
larger systems. 



CAPABILITIES 



ACCOUNTS RECEIVABLE 

The objective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers. Management can gener- 
ate information required to control the amount of credit extended and the 
collection of money owed in order to maximize profitable credit sales 
while minimizing losses from bad debts. The programs composing this 
system were developed 5 years ago, especially for small businesses using 
the Wang Microcomputer. They have been tested in many environments 
since then. Each module can be used stand alone or can feed General 
Ledger for a fully integrated system. 



PAYROLL 

Payroll invoices many complex calculations and the production of reports 
and documents, many of which are required by government agencies. It is 
an ideal candidate for the computer. With this Payroll system in-house, 
you can promptly and accurately pay your employees and generate 
accruate documents/reports to management, employees, and appropriate 
government agencies concerning earnings, taxes, and other deductions. 
The package has been converted to Ihe TRS-80'" and is now a well 
documented, on-line, interactive micro-computer system with the capa- 
bilities of (or exceeding) many larger systems, 

CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

* can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

(Continued on next page) 



* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented: everything revolves around the invoice; handles new 
invoice or credit memo or debit memo 

* invoice information recorded; invoice #, description, buyer, check 
register #, invoice date, age date, amount of invoice, discount (in %), 
freight, tax {$), total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated for a 
set of vendors - or - for specific vendors 

* program prints your checks; contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back): 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER; each invoice can be distributed to as 
many as five (5) different GL accounts; sysem automatically posts to cash 
and A/P accounts 



CAPABILITIES 



* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready for billing, when 
ready for billing, after billing or after paid 

* allows entry of new invoice, credit memo, debit memo, or change/delete 
invoice 

* allows for progress payment 

* transaction information includes: 

• type of A/R transaction 

• customer P.O. # 

• description of P.O. 

• billing date 

• general ledger account number 

• invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print and file maintenance procedures insure accuracy 

* customer statements printed; computer statements with your company 
letterhead can be purchased from SBSG 

.* reports include; (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

* fully linked to General Ledger; will post to applicable accounts: debits A/R, 
credits account you specify 
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(PAYROLL CAPABIUTIES CONTINUED) 

* employees can bepaidusinganycombinationof pay types (except, hourly 
cannot receive salary & salary cannot receive hourly) 

* special non-taxable or taxable lump sumscan be paid regularly or one time 
(bonus, reimbursements, etc) 

* health & welfare deductions can be automatically calculated for each 
employee 

* earnings-to-date are accumulated and added to permanent records; taxes 
are computed and deducted: US income tax, Social Security tax, state 
income tax, other deductions (regular or one lime) 

* paychecks are printed; computer checks with your company letterhead 
can be purchased from SBSG 

* calculations are accumulated for; employee pay history, 941A report, W-2 
report, insurance report, absentee report 

* fully linked to General Ledger. Each employee's payroll information can be 
distributed to as many as (12) twelve different GL accounts; system 
automatically posts to cash account. 



INVENTORY/CONTROL INVOICING 

• OVER 1000 ITEMS ON MODEL I 

• OVER 3000 ITEMS ON MODEL II 

• LOW STOCK ALARM 

• INVOICING DEDUCTS FROM INVENTORY 

• COMPLETE INVENTORY REPORTS 

• REORDER POINT REPORT 

• QUICK ITEM ACCESS 



CLIENT BILLING, STOCK CONTROL, DENTAL BILLING, COMMODITIES 
Medicare/Medicaid billing also available 



MODEL I 
MODEL II 



$125 Per Module 
$495 Complete System 
$225 Per Module 
$995 Complete System 



WE ARE THE ONLY SOFTWARE COMPANY THATOFFERS A REFUND 
WITHIN 30 DAYS ON ALL SOFTWARE (H & E COMPUTRONICS 
MONTHLY NEWSMAGAZINE SUBSCRIBERS ONLY}. WE DO 
CHARGE A $3 PENALTY TO COVER POSTAGE AND HANDLING. 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data from 
other accounting subsystems (A/R, A/P, Payroll, direct posting) in an 
accurate and timely manner. Major reports include the Income Statement 
and Balance Sheet and a "special" report designed by management. The 
beauty ot this General Ledger system is that it is completely user formatted. 
You "customize" the account numbers, descriptions, and report formats to 
suit your particular business requirements. These programs were de- 
veloped 5 years ago for the Wang micro-computer and have been tested in 
many environments since then. The package has been converted to the 
TRS-80" and is now a well documented, on-line, interactive micro- 
computer system with the capabilities of (or exceeding) many larger 
systems. 



CAPABILITIES 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via; 

• direct posting; done by hand; validated against the account file 
before acceptance 

• external posting; generated by A/R, A/P, Payroll or any other user 
source 

* data is maintained and reported by; 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include; 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more .... 

*■ user formats reports with the following designed as you wish; 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

■ skip pages 

* up to eight levels of totals - fully user designated 

* menu driven; easy to use; full screen prompting and cursor control 



iCQIYIPUTHQMlCS! 



NwhTve^MmoAL *ipo_c>PXr^ ^*Fr.xi" 



Box 149 



N«w City, New York 109SG 




HOUR 
24 ORDER 

LINE 
(914) 425-1535 




PLEASE SEND ME: 

MODEL I $125 PER MODULE 



MODEL II 



$495 COMPLETE SYSTEM 
$225 PER MODULE 



$995 COMPLETE SYSTEM 
CREDIT CARD NUMBER 



_EXP. DATE- 



SIGNATURE 



NAME 



ADDRESS 



-STATE_ 



_ZIP_ 



■■■ ADD Se/YEAH (CANADA, MEXICO) - ADO $12/YEAn AIR MAIL - OUTSIDE OF U S.A , CANADA S MEXICO "■ 



(.^ Reader Service— see page 14? 
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UTILITY 



A simple, but powerful way to incorporate 
machine code sections in your BASIC programs. 



JHACROPOKE MonUor 



Larry Suter 

1643 Warsaw Ave. 

Livermore, CA 94550 



Here's a somewhat different 
approach to putting ma- 
chine-language programs into 
the Level II TRS-80, using a pair 
of simple programs that I think 
you'll find are powerful and con- 
venient tools. 

The programs are powerful 
because they allow you to edit 
your machine-language rou- 
tines, unlike other monitors 



which are separate programs 
and actually deprive you of the 
Level M editor. 

You'll find these routines con- 
venient too, because they allow 
you to incorporate your "ma- 
chine-language development 
system" as a small part of larger 
BASIC programs. 

Another very convenient fea- 
ture of this monitor is that when 
you CSAVE or CLOAD your BA- 
SIC program, you also save or 
read your machine-language 
routine. No extra reads or writes 
are required. 

You'll find the bare bones 



9 REM AD = ADDRESS WHERE WE START TO STORE PROGRAM 

10 AD = 20224 

13 REM READ THE HEX INSTRUCTIONS FROM THE DATA STATEMENT 

14 REM XX MARKS THE END OF THE MACHINE LANGUAGE PROGRAM 

15 READA$;IF A$=^"XX'THEN 100 

18 REM 

19 REM THIS WILL PUT THE DECIMAL VALUE OF AS INTO A 

20 B$ = LEFT$(A$,1):GOSUB25:A = 16.B:B$ = RIGHT$(A$,l]:GOSUB25: 
A = A + B 

21 REM STORE BYTE AND INCREMENT POINTER. THEN GET MORE, 

22 POKE AD,A:AD = A0 + 1:G0T0 15 

23 REM 

24 REM THIS SUB CONVERTS 0-F ASCII TO 0-15 DECIMAL 

25 B = ASC1B$)-48:IF B>9 THEN B = B-7 

26 RETURN 

27 REM 

28 REM OUR MACH. LANG. PROG. IS IN THE DATA STATEMENT 
30 DATA21,00,4B,DB,FF,E6,80,D3,FF,77,23,7C,FE,4D,20,F3,C9,XX 

98 REM 

99 REM LOAD STARTING ADDRESS INTO TRS-80 POINTER 
100 POKE 16526,0:POKE 16527,79 

103 REM 

104 REM START CASSETTE, THEN WAIT A BIT 

105 AD = 19200:OUT 255,4:FOR I ^ 1 TO 200:NEXT 

108 REM 

109 REM WAIT UNTIL THERE IS DATA THEN USE MACH. LANG. PROG. 

110 IFINP(255)<128THEN 110 ELSE PRINT USR(O) 

118 REM 

119 REM DISPLAY DATA ON TV 

120 PRINT AD,PEEK(AD|:AD = AD + 1:FOR 1 = 1 TO 20:NEXT:GOTO 120 

Listing 1: Shows you tiow to incorporate the monitor (lines 
10 to 30) into a BASIC program. This example uses ma- 
chine language to collect data from the cassette port and 
then displays it with BASIC. 



form of this monitor, together 
with a sample machine-lan- 
guage routine, in lines 10 to 30 
of Listing 1 . The key to this mon- 
itor is that the machine-lan- 
guage program is contained in 
BASIC DATA statements. 

To load your routine into 
memory you need to specify AD. 
the location where you will 
begin to store your program. 

In this example, we start at 
location 20224 decimal or 4F00 
hex. Typing RUN causes the pro- 
gram to read the hex bytes, con- 
verts them to decimal and then 
POKES them sequentially into 
memory very quickly. When it 
finishes loading the program, it 
reads the XX, which causes it to 
branch to wherever you want. 

As I said, you have full editing 
control of the monitor. 

For example, let's say that 
when you're proofreading your 
program, you see that you've 
left a statement out. Use the 
editor to insert it into the DATA 
staterVient, or use the editing 
mode to slip a few new instruc- 
tions in to expand your program. 
If you want to take out a few 
bytes, use the Level II editor to 
delete them. 

Listing 1 lets us look at pieces 
of the bit stream coming in from 
the cassette recorder. Not a very 
exciting program, but a reason- 
able example of how this moni- 
tor combines a very fast ma- 
chine-language routine with a 
much slower, but easier to write 
BASIC program. 

When the program branches 
to the main routine at line 100, it 
POKES the two-byte starting ad- 
dress of the machine-language 



routine into locations 16526 and 
16527 of memory. This informs 
the TRS-80 where our machine- 
language routine starts (see p. 
8/8 of the Level II BASIC Manual 
for a more complete description 
of this). 

Now we're ready to read from 
the cassette recorder. 

OUT255,4 turns on the cas- 
sette recorder. Next the pro- 
gram waits a bit by executing 
the FOR, NEXT loop. This delay 
allows the tape recorder to 
come up to speed. 

Then we read data from the 
cassette port with 1N(255). When 
the input value is greater than 
128 we know we're reading data 
and not a blank tape. Now we're 
ready to jump to the machine- 
language routine by executing 
the USR(O) function. 

The Routine 

The actual machine-language 
routine is detailed in Example 1. 
What it does is read from the 
cassette input port, mask bit 7 
(the active bit of the port), store 
the value into memory starting 
at 4B00H (19200 decimal), reset 
the input flip-flop (see the 
TRS-80 Microcomputer Techni- 
cal Reference Handbook for an 
explanation of this), increment 
the storage pointer (the HL reg- 
isters) and loop back to the be- 
ginning, until it stores 512 bytes. 

Then it returns to the BASIC 
routine. That's a lot to do in a 
short amount of time, and that's 
why we do it in machine lan- 
guage! 

Having stored the data, we 
now use BASIC commands to 
display the bit stream we just 
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collected on the screen. As you 
see, you get Os with occasional 
bunches of 128s. The 128s are 
the pulses from the recorder. 
(How these highs and lows re- 
late to data bytes is described 
on page 46 of the TRS-80 Micro- 
computer Technical Reference 
Handbook.) 

Making changes in the ma- 
chine-language portion of the 
program for debugging, fixing or 
adding more features is just as 
simple as changing the BASIC 
part of the program with the 
Level II editor. 

Compare this with other in- 
dependent monitors which re- 
quire you to load a long program 
from tape, make your changes 
and reload your own BASIC pro- 
gram. 

The drawback of this tech- 
nique is that incorporating the 
program steps in DATA state- 
ments requires about 3.3 bytes 
of storage per machine-lan- 
guage byte. For most programs, 
this is more than balanced by 
the very short length of the raw 
machine-language monitor, (132 
bytes for the monitor in Listing 
1) compared with the sizes of 
other monitors (about 1.5K). 

By the way. Example 1 has a 
subtle bug In it. When you issue 
the OUT FF command, you not 
only reset the input flip-flop, 
which we need to do after each 1 
is received, but we also send a 
in bit 2 to the port. This turns 
off the cassette motor! A 1 
keeps it going. 

On the time scale of this rou- 
tine's execution, the cassette 
keeps coasting, so we'd never 
notice it. For longer reads we'd 
soon find there's a bug. 



LD HL,4B00H 
IN FFH 
AND BOH 
OUT FFH 
LD (HL1,A 
INCHL 
LD A,H 
CP4DH 
JR N, F3H 
BET 

Example 1: Assembly lan- 
guage listing of the pro- 
gram that reads In data 
from tfie cassette port 
and stores It In memory 
location (HL). 



A IN FFH 
AND 80H 
JP2, A 



DATA. .,LA,DB,FF.E6,80,CA,TA... . 

Example 2: Assembly lan- 
guage listing of a simple 
program loop written to 
use MACROPOKE. 



What coding changes would 
you put in to fix this bug? 
They're easy to put in with the 
editor. Be sure to change the 
JR,N displacement to Incor- 
porate your changes. 

MACROPOKE 

For the majority of BASIC and 
machine-language program- 
ming, the short and simple mon- 
itor we just described should be 
adequate. In my opinion 
machine-language routines 
should be short and used only 
when necessary, such as when 
working with fast peripherals. 

Unfortunately, you occa- 
sionally end up writing long 
routines with several entry 
points, jumps or CALLs to sub- 
routines. For those applica- 
tions, a further extension of the 
monitor is necessary. 

This monitor uses labels for 
branching, instead of requiring 
you to specify hex addresses. 
The monitor resembles a small 
assembler, inasmuch as you 
need not worry about absolute 
addresses when you make 
changes. Insertions or deletions 
no longer require meticulous 
care of subroutine addresses, 
jump destinations and entry 
points. 

Since this program allows 
you to POKE good sized ma- 
chine-language routines any- 
where in RAM, I call it MACRO- 
POKE. 

To use MACROPOKE you 
have to follow three straightfor- 
ward rules. First, to put a label n 
(where n ^1,2 . . . .A,B, . . . ,Z, 
and a few others such as ?, @, 
= } on a statement, you insert Ln 
into the DATA statement just be- 
fore the instruction you want to 
identify with label n. 

The L tells our assembler that 



the instruction it just read from 
the DATA statement is a label. 
The n tells it which label it is. 
When the assembler sees an L, 
it knows it should remember the 
absolute address of the follow- 
ing byte. 

The second rule is employed 
when making a two-byte JUMP 
or CALL to the instruction la- 
beled by n. Put Tn after the J P or 
CALL instruction. 

The T telis the assembler to 
insert the two-byte address of 
label n after the JP or CALL. 

The third rule is used when 
performing a one-byte relative 
jump. Insert an Rn after the in- 
struction. 

The R tells the assembler to 
calculate the number of bytes 
dispiaced to n and place that 
value where it found the Rn, 

Example 2 shows a section of 
an assembly language listing, 
including a jump-on-zero to an 
absolute address. This routine 
keeps on looping until an 1 is in- 



put in bit 7. 

The DATA statement for this, 
using the Ln and Tn instruction 
is also shown. 

If we desire to use a relative 
jump-on-zero, (JR Z,A) then we 
put 28, RA in place of the CA,TA. 
It we need to insert a few in- 
structions into the loop, we 
simply use the Level 11 editor to 
insert them in the DATA state- 
ment. The assembler takes care 
of the addresses. 

Two-Pass System 

Listing 2 shows the actual as- 
sembler. Stripped down, without 
REMsand spaces, it's about 450 
bytes long. The sample ma- 
chine-language program con- 
tained in the DATA statement 
waits for data to start coming in 
from the cassette port and 
displays it directly on the moni- 
tor. You may want to decode it, 
try it and modify it. 

MACROPOKE is a two-pass 
system. V(42) is the vector where 



4 
5 
9 
10 
19 
20 
24 
25 
29 
30 
33 
34 
35 
39 
40 
44 
45 
59 
60 
69 
70 
89 
90 
91 
92 
93 
94 
95 
96 
97 



100 
101 
105 
998 
999 
1000 



REM V WILL CONTAIN ADDRESSES OF LABELED BYTES 

DIM V{42):CLS.BP ^ 20224:AO = BP 

REM FIRST PASS ENDS WHEN XX IS READ 

READ BS:IF B$ = -XX" THEN 35 

REM SEE IF WE JUST READ A LABEL. STORE ADDRESS IF WE DID 

A$ = LEFTJ(BS.1)-IF A$ = ''L" GOSUB 99;V(N) = AD:GOTO 10 

REM T INSTRUCTIONS REQUIRE AN EXTRA INCREMENT 

IF A$ = ''T-THEN AD = ADi-1 

REM INCREMENT ADDRESS POINTER AND LOOP BACK 

AD-AD^-1 GOTO 10 

REM 

REM RESET POINTERS FOR SECOND PASS 

AD^BP;RESTORE 

REM XX INDICATES END OF DATA 

READ B£: IF BS- "XX'THEN 100 ELSE AS = LEFT$(B$,1) 

REM CHECK TO SEE IF BYTE IS AN L.T OR R INSTRUCTION 

IF AS = - L'THEN 40 ELSE IF A$^ -T-THEN 93 ELSE IF AS ^ 'R'THEN 96 

REM DECIMAL VALUE OF BYTE BS GOES INTO A 

GOSUB90:A = 16-X:AS = RIGHTSfBS.I) GOSUB90:A = A -^ X 

REM STORE BYTE AND GO FOR MORE 

POKE AD.A:AD = AD-M;GOTO40 

REM CONVERT ASCII 0-F TO DECIMAL 0-15 

X^ASC(ASJ-48-|FX>9THEN X = X-7 

RETURN 

REM STORE 2 BYTES INDICATED BY T INSTRUCTION 

GOSUB99:GOSUB94 AD = AD + 2:GOTO 40 

A = INT(V(N)/256)-POKE AD-f 1,A:P0KE AD,V(N) - 256- A;RETURN 

REM CALCULATE AND STORE 1 BYTE DISPLACEMENT 

GOSUB99:A = V(N) - AD - 1;1F A<0 THEN A ^ 256 -f A 

GOTO 70 

REM FIND DECIMAL EQUIVALENT OF LABEL 

N - ASC(RIGHTS(B$,1)J - 46. RETURN 

AD=.16526N = 1:GOSUB94 

REM YOUR PROGRAM STARTS AT 100 

OUT 255,4 FOR 1 = 1 TO 200:NEXT:X = USR(0)'OUT 255.0 

REM 

REM CASSETTE READ AND DISPLAY ROUTINE FOLLOWS 

DATA L1,21.00,3C.L3,DB,FF,E6aO,CA,T3,LA,DB.FF,E6,80,D3,FF,07,C6,30, 

77,23,06.20,L2.10,R2,7C,FE3F,C2,TA,C9.XX 



Listing 2: IVIACROPOKE routine that allows you to use labels, 
rather than addresses. The bug mentioned in Example 1 Is 
also present in this routine. You'll see It when you run the pro- 
gram. Can you fix It? This time you don't have to worry about 
addresses. 
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we slore the addresses of the 
various labels that the assem- 
bler encounters. BP is the ad- 
dress where we want to store 
the first statement of the ma- 
chine-language routine. 

MACROPOKE makes its first 
pass through the coding in lines 
10 to 30. This pass looks for la- 
bels. If it finds an Ln statement, 
it sets V(n) equal to the address 
of the following instruction. 

Having stored the addresses 
of the various labels, the assem- 
bler starts the second pass, 
lines 35 to 70. This pass con- 
verts the hex instructions to ma- 
chine language and stores 
them. It also inserts the correct 
addresses and displacements 
when itencountersTnand Rn in- 



structions. 

This assembler can be used 
stand-alone or be incorporated' 
into BASIC programs. It allows 
fully relocatable coding, since 
all addresses are determined 
relative to BP, the base pointer. 

Debugging coding is easily in- 
corporated into the MACRO- 
POKE. For example, we could 
scatter throughout our coding 
CALLS to a subroutine that 
displays registers on the moni- 
tor and waits for a key to be de- 
pressed before returning. 

Thus, we can single-step 
through troublesome sections 
of coding. 

The tangled mess of ad- 
dresses that is created by insert- 
ing and removing these CALLs 



is automatically taken care of by 
the assembler. This allows you 
to concentrate on the actual 
program logic. Changing the 
codes is, of course, made easy 
with the excellent Level II editor. 
Entry points to various 
routines can also be tagged with 
labels L1,L2 . . . When you run 
the assembler you get a table of 
entry points stored in the vector 
V. When you want to call the ma- 
chine-language routine starting 
at, say, L4 you can use, for ex- 
ample: 

N =4,AD ^ 16526:GQSUB94:N = USR(O) 

This loads the address of the en- 
try point 4 into the appropriate 
TRS-80 pointer and CALLs the 
subroutine. 



If you're doing fancy program- 
ming using tables, you can label 
the start of a table with Ln and 
load the addresses of the tables 
into the IX or lY registers (or, for 
that matter, the BC, DE, HL reg- 
isters) using the appropriate 
16-btt laod immediate instruc- 
tions foliowed by In. 

I'd like to reiterate that, for 
most programs, this MACRO- 
POKE is probably overkill. 
Usually the simple routine de- 
scribed in the first section is 
adequate. Try to do as much as 
possible in BASIC, using the ma- 
chine language only when you 
really need the speed, such as 
when dealing with peripherals 
like the cassette port or the tele- 
vision. ■ 



IL^* ATTENTION INVESTORS! 
COMMODITY AMD STOCK 

MARKET ANALYSIS 

SOFTWARE 



THE ANALYST 

Calculates Wilder Indicators for DMI. RSI, 
Parabolic/ Time Price Systems. *>io 

Eliminates tedious calculations. $49> 



THE OSCILLATOR 

Fillers historical data and locates 

profitable oscillators. Provides market 

entry/exit points. 

Has simulator mode. 



$49. 



FOR LEVEL II 16K OR 32K DISK 

V User onented. just load program and go. 

^ Market tested 

J Use commercial data files or make youi own 

J Graphic capaDiiities 

J Printer options 

J Clear and complete documentation 

J Monitor numerous markets in |ust minutes per day 

MANAGEMENT SERVICES 

2901 CLENDENEN LANE ^^213 

LONGVIEW, TX 75601 

TEX RES ADDi% SALES TAX 



.THREE OUTSTANDING PROGRAMS>^ 

PARSECTOR V the ultimate space war $19,95 

Two oppooenls must navigate pcpwerful mother ^hips Ihrough Th« 
galaxy and C9plur0 Dar^ftclors. Launch fleet battle crall 
fyters, cmzers, ard bases Fkra high powered energy beams 
□r deadly short rahge weaporr spreads- To ^in you must conc)uar 
the gafahy or dasifoy your opponent's mothw ship. 
SPECIAL FEATURES: Uni<iue split scre*n gives each pJayor a 
private v id fto display. Action Sounds andGraphics: sxplosions, 
weapon releasas, launches, and more. Vartable galavy sue. 
Play another p*rson or the comptiter opponefit at 3 Oifliculty levels 
LAUNCH A COMPLETE SPACE FORCE \H MINUTES ! 

! ! * ANTS I I ! A STIMULATING ACTION GAMf $14.95 

Two colonies Of ants ara at war Opposing quMn ants prodjce 
tour types of offspring, workers, soldiers, guards, and drones 
The challenging strategy is to produce arts in the proper sec)uer>ce 
to sling tha anerr>y gueen or overrun it's nsst . 
SPECIAL FEATURES Full screen actioo with SOUND. Hundredsof 
ants battle with machine lar^guage speed. 3 game variations 
Play another person or the compulsr opponent at 4 difficulty levels. 

NAME THAT STATE QUIZ educational $14,95 

A rasclnaling way 10 team about our 50 stat«s IT (eact>es lh«star« 
shapes, name^, capitals, poputations, areas, and gftogiaphic regions. 
Three typs of auii2*£' true S false, multiple choice, and fill in the 
Hank SPECIAL FEATURES AcTion Sounds, renaraing lones and 
harassment buffers. Conflnuous scor«- Easy Co use. 

^^2^ 1 

TRS BO L2 16K required. For sound you must hooK up an 

inexpansive speaker-amp system to cassette pin. 

For program cassBlte* instructions send CHECK 01 MONEY OflDER . 

SVNERGISTtC SOLAR INC., PO BoK 560595 , (MIAMI FL 33156 



We're convinced liiat the proDlem miih learriiriyZ-so Assembly language is 
tne airecr resull ol a lack of good source programs ro serve as study 
guiOes RememBer wtien you visie learning Basic' Every time you 
encountered a problem. Ihere were dozens of examplES to rielp you work it 
out Not so wilti assemtMy language Combined wiinihefactlliatthereare 
more and more intricate concepts fo ur>derstand. things nave been rough 
yoifig lor rne persor>5 desiring to master Ibis e>icellenl language We 
believe I hat the general availability of some programs — especiaflv for the 
TRS-80 — will aid Id Ijetler all who choose lo investigate this fascinating 
field ideally providing taster and more compeleni programs down the 
roadi For this reason, we have tieen encouraging authors 10 make the 
EDTASrjl source code available at least as an option And we re proud 10 
say we ve been sutcessluM 



2-80 Source Code Irom 

THE ALTERNATE SOURCE 

Eacn buurce listing listed below IS a valuable I. jronal in ilseM' All programs 
are designed for ihe TRS-80 and include a Z-eo source tilei 

■ DVn - a Driver pacliaye that adds several features to the THS-SO 
including screen echo to punier, repealing ttey lower case driver and 
morel Level 11 or DOS CabSette J15,95; diskette. J18.95. Works with 
t^EWDOS alSQi 

• KEEPIT — Level II oniyi Preserves yoi 
point Excellent for debugging and Sr 
C a sane only 19,95, 

• COPYDISK — a program which allows 



' program Irom any eiiecurn 
■ing current program statu 



iittl 



syste 



opying ol several DOS liles at 
kelie^ Complete Disk I/O routines! Giaal for 
ce and single drive ownersi On casselle J17.9S; 



diskette 

diskette. 120,95. 

• MICROSKETCM III package — tilicrosketch, frficroscreen and Screen 
Save Utility. There three programs (on 3 lapesl make graphics as easy as 
l-S-31 All 3 programs se" for S23,B5, Included FHEE are the source codes 
lor FIFTEEN machine language subroutines that are utilued' If you re 
already at^icrostietcnowner, purchase Ihe two support packages and the 
source codes for the fifteen machine language utilities for only S19.ft5 total! 
Owners ol DVR and COPVDtSK may return original meOia and purchase 
tne source codes for the difference m price' 

r^ail your order to TAS SOURCE, 18Dfi Ada Street, Laming, Mt 4B910. 

VISA and fWaster Charge accepted By phone 51^'flS7-3358 Include 5t>C 
per program for First Class frtaii Wo™ m came! ^*« 138 



GET PaM^ 

for usinq your 
Computer ^ 

FUN-' Easv r^3^ 

RUSH COUPON FOR ^ 
FREE FACTS 

GP^'^'^SPARETIME 



Send loday to DAR- E3 
3110 Fulton Ave.. Sacramento CA 95821 ^^134 






These popular, professionally developed 
applications are low-priceii. Guaranteed 
performance! Detailetl booklet included. 

■ BUDGET fk IKVSSTMENT S17.95 

• BUDGET & CHECKING S1I+.95 

■ HOME INFO RETRIEVAL S1 1.95 

• MATH (ages 5 and up} 3 7-95 

■ STOCK PORTFOLIO 918.95 

• AUTOMOBILE 512.95 

■ MASTERMIND game 510.95 

• MOMTE CARLO game 3 7.95 

■ and others from S 'I-.95 

Send order, or SI. 00 for descriptive 
catalogue (free with order) to: i-^116 

NEWBY SOFTWARE DEVELOPMENT CO 
299 DAWLISH AVE. TORONTO, CANADA MAH US 
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Evervbody]s making money 

sellina microcomputers. 

Somebody s going to make money 

servicing them. 

New NRI Home Study Course Shows You How to Make Money Servicing, Repairing, 
and Programming Personal and Small Business Computers 



Seems like every time you turn around, some- 
body comes along with a new computer for 
home or business use. And they're being gobbled 
up to handle things like payrolls, biUing, inven- 
tory, and other jobs for businesses of every 
size., .to perform household functions like 
budgeting, emlronmental systems control, 
indexing recipes, and more. 

Growing Demand for 
Computer Technicians... 
Learn in Your Spare Time 

Even before the microprocessor burst 
upon the scene, the U.S. Department of Labor 
forecast over a 100% increase in job openings for 
the decade through 1985. Most of them new 
jobs created by the expanding world of the 
computer NRI can train you at home to service 
both microcomputers and their big brothers. 
TVain you at your convenience, with clearly 
written "bite-size" lessons that you do evenings 
or weekends without quitting your present job. 
Assemble Your Own Microcomputer 

NRI training includes practical experi- 
ence. You start with meaningful experiments 
building and studying circuits on the NRI 
Discovery Lab® Then you build your own 
test instruments like a transistorized volt-ohm 
meter, CMOS digital frequencj' counter., .equip- 
ment you learn on, use later in your work. 

And you build your own microcomput- 
er, the only one designed for learning. It looks 
and operates like the finest of its kind, actually 
does more than many commercial units. But 
NRI engineers have designed components and 
planned assembly so It demonstrates important 
principles, gives you working e:^rience in 
detecting and correcting problems. It's the 




kind of "hands-on" training you need to 
repair and service units now on the market. 
Mail Coupon for Free Catalog 
No Salesman Will Call 

Send today for our 100-page, full- 
color catalog. It describes NRI's new Mi- 
crocomputer Tfechnology course in detail, 
shows ail equipment, kits, and lesson plans. 
And it also tells about ■— ^ ^ ^ 
other NRI courses ... . Kl n I 
Complete Communi- I N K I 
cations with 2-meter ' 



transceiver... TV/AudioA'ideo S)^ems Servicing 
with training on the only designed-for-learning 
25" diagonal color TV with state-of-the-art 
computer programming. TOth more than a 
miOion students since 1914, NRI knows how 
to give you the most in home training for new 
opportunity'. If coupon has been removed, 
write to NRI Schools, 3939 Wisconsin Ave.. 
Washington, D.C. 20016. 

RUSH FOR FREE CATALOG 







NRI Schools 

McGraw-Hil[ Continuing 

I'.dueaiion Cecuer 
3939 Wisconsin Avenue 
Washington, D.C. 20016 
Please clieck for one free catalog only: 
NO SALESMAN WILL CALL 




All career courses 
approved under Gl Bill. 
G Check for details. 



n Computer Electronics Including 

Microcomputers 
D TV/Audio/Video Systems Servicing 
D Complete Cotnmunications Electronics 

with C6 • FCC Licenses • Aircraft, 

Mobile, Marine Electronics 
D CB Specialists Course 
a Amateur Radio • Basic and Advanced 



D Di^taJ Electronics • Electronic 

■ftchiiology • Basic Electronics 
D Small Engine Repair 
D Electrical Appliance Servicing 
n Automotive Mechanics 
n Auto Air Conditioning 
n Air Conditioniiig, Kefrigeralion, & Heating 

Including Solar "ftchnology 



(Please Print) 



City;S(ate/Zip 

Accredited by the Accrediting Commission of the National Home Study Council 



179-040 
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Formerly the CPU Shop 

Disk Drives for TRS-80* 16 K Memory Upgrade Kits 



CCI-100™40Track 

Ca-200™ 77 Track 

CCI-800™8"Drive 

(Model H) 



Reg. Our 

$399 $345 

$675 $549 

$895 $795 



TRS-80* Systems 




Reg, Our 
TRS-80* 16K Level liw/keypad $849 $749 
TRS-80* Expansion Interface $299 $279 
Cat Mode m — Originate and 

answer.Sameas Radio Shacl^ 

TeJeplione Interface 11 $ 199"S 189 -^-:;i^~-^— ^-^-^ 

SAVE EVEM MORE— CALL FOR COMPLETE SYSTEM PRICES 

Printers for TRS-80* 

MEC Spinwriter - letter quality fiigh 
speed printer with 

TRS-80* interface Reg. Price Our Price 
soJtware 92745 S2479 

with Tractor $2979 $2679 

779 Centronics Tractor Feed $1598 S 995 

730 Centronics Friction and Rn S 995 $ 899 

PI Centronics Printer $ 499 $ 379 

Paper Tiger (IP440) with graphics option $1195 $ 1 1 55 
TI-810 Upper and lower case, parallel and 

serial, paper tray, and TRS-80* 

Interface software. S2065 $1829 

MPI Inflation Fighter $ 795 $ 749 

Sanders 12/7 Typographic Printer $3994 $3899 




tappkz Gomputxzr 



$1195 



Call for Special Accessory Prices 

High Technology Mail List (Apple) $ 40 $ 35 



32K System 
64K System 



Z80 based, dual 8" single-sided double 
density floppies. Reg. 

$4500 
$4960 



Call for 

price 



Prices in this ad are for prepaid orders. Slightly higher prices prevail for otlier- 
than-prepaid orders, i.e., C.O.D., credit cards, etc. 

Freight collect, F.O.B. 
Charlestown 



ComputerCity 



Add $2.50 for jumpers and 
programming instructions 



Regular Price 
S79 



Our Price 
$62 



Operating Systems for TRS-80 = 



35 Track 40 Track 77 Track 

Reg. Our Reg. Our Reg. Our 

NEWDOSbyApparatt $ 49 $ 44 $ 55 S 

NEWDOSPIus $ 99 S 79 $110 $ 



50 
89 

Reg. 
S150 
$250 



$150 $100 

Our 

$145 

$170 

$ 25 

$ 8.95 



CP/M for TRS-80* Model 1, Zenith 

TRS-80* Model 11, ALTOS 
Manual only 

ComputerCityTM Patchpak *4 by Percom Data $ 9.95 
Patches and enhances TRSDOS for 40 track and 77 track drives. 
Diskettes5'/2" Boxof lOCallforquantitydiscounts $ 26.49 

Business Software £ TRS-80* by CSA 



MODEL 1 



MODEL II 



General Ledger 
Accounts Payable 
Accounts Receivable 
Inventory 

Mailing List IName and Address 
Complete Computer 
Checkout Program 
Spooler by CSA- 
Printswhile doing data entry 



Reg. 
$125 
S125 
$125 
$125 
$129 



Our 
$97 
$97 
$97 
$97 
$97 



Reg. 
$225 

S225 
$225 
S225 
$225 



Our 
S199 
$199 
$199 
$199 
$199 



$ 29 $26 



S 29.95 $ 24.95 



£wrw(Heatfi)WH89 



Tlieall-in-onecomputer, Floppy Reg. 
disl( storage. Srriart video ter- $2595 
minal. Two Z80 microprocessors. 
Complete with 16K 
RAM expandable to 48K. 

CCiTM-189 Add-on drives for 

WH89 S 495 



Call for 
price 



Call for 
price 




M/iTT£L iNtEUiViSiON 



ATARr 



400 AND 800 



CallforSpeciallntroductoryFtices 

Call for 
Prices 



v^215 



TO ORDER CALL TOLL FREE 1-800-343-6522 



175 Main Street, Dept. M-4, Charlestown. MA 02129 TWX: 710-348-1796 



MassachusettsResidentsca!1617/242-3350 



Hours 1 0AM-6PM (EST) Mon.-Fri. (Sat. till 5) • For detailed information, call 61 7/242/3350 

MassachusettsResidents add 5% Sales Tax •TMCCI-100,-189,-200&-800areCompLtterCity,lnc.trademarks. TRS-80* isatrademarl< of the RadioShack 

Division of Tandy Corporation f Requires Radio Shack TRSDOS* Prices subject to cliange without notice. Franchise and Dealer Inquiries Invited 



Locations / Manchester, NH • 



' Framingham, MA 
Providence, RI 



Hanover, MA • Burlington, MA 
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APPLICATION 



Travel around a lot? Use this program 
to keep all your arrangements under control. 



Itinerary 



Ben Gorsky 

2449 Derbyshire Rd. 

Cleveland OH 44106 



My wife and I travel a fair 
amount, and, generally, 
we make ail of our own reserva- 
tions. For anytfiing but the sim- 
plest trip this usually results in 
reams of paper covered wilfi 
handwriting, each dealing vwith 
some aspect of the trip. 

As plans evolve they often 
change, so some sheets are dis- 
carded or the writing crossed 
out. This can be confusing, and I 
thought our TRS-80 could, more 
simply, keep track of trip items 



and print an itinerary. 

Two Records 

Flights, hotels, car rentals 
and miscellaneous types of res- 
ervations are kept on one rec- 
ord. The program also keeps a 
second payment record. 

hems can be added or deleted 
to either list, and with a line 
printer a final itinerary can be 
produced. 

The list of variables (Table 1) 
shows that for each type of res- 
ervation, there is another entry 
that indicates the number of 
such reservations stored. Other 
items are subscripted variables. 

Most of the variable names 
make their meaning obvious. 



NFT 


Number of Flights 


FDATE((1 


Date of Ith Flight 


ALN(I) 


Airline 


DPCIT(I) 


Depatlure city 


DEPTMll) 


Depatiurelime 


NM(I) 


Flight numbet 


ACIT(I] 


Arrival City 


ATM(I) 


Arrival Time 


FCOM(I) 


Commenls lor Flight 


NHOT 


Number of Hotels 


ADAT(I) 


Arrival dale at llfi Hotel 


HOTNAM(I) 


Name 


DR(I) 


Address 


DDAT(I| 


Departure dale 


NO 


Number of other reservations 


OT(l) 


Data for other reservations 


NACT 


Number ol accouriting items 


WHO(I) 


Name ot parly to pay (or 1th item 


DATDUE(l) 


Date payment due 


STSNT(I) 


Date payment sent 


DOLDEP(l| 


Amount of payment 


NCAB 


Number ot Rental cars 


RSNM(I) 


Reservation Number for llh reservation 


AGNCY(I) 


Agency lot 


PDAT(I) 


Pick-up date 


PLCll) 


Pick-up location 


RDAT(I) 


Return date 


RLC(l) 


Return location 


TRPNM ■ 


Name or title (or entire trip 


Table 1: List of Variables 



However, since Level II BASIC 
reads only the first two char- 
acters of any variable, some 
strange entries creep in. 

Furthermore, one cannot use 
reserved words in any variable. 
Note that the other category has 
only one item. This permits the 
storage of a string telling every- 
thing about a particular res- 
ervation. 

Statement 10 does the little 
housekeeping that is required- 
establishing some string space 
and defining some variables as 
integers and others as strings. 

Each letter of the word itiner- 
ary is printed with an "at" state- 
ment keyed to the variable I, in- 
cremented 66 after each letter is 
printed. This causes the word to 
show up on a diagonal. 

The real program begins with 
the menu screen at line 100. 
Statements 150 through 180 ac- 
quire data previously stored on 
tape. For each category, the 
machine first gets the number of 
items in the category, then the 
list of items for each reserva- 
tion. 

Lines 1500-1560 will output 
the data in an identical format. 

Lines 200-330 manipulate 
flight reservations. This part of 
the program will be described in 
detail, as it is the prototype for 
each of the other reservation 
modules. 

Manipulating Flights 

If NFT, the number of flights 
is zero, a statement is printed on 
the screen, and the program 
goes to 230. If NFT is greater 
than zero, then the flight reser- 
vations are displayed. Each has 



three lines. The first gives the 
date, airline, departure city and 
time. The second has flight num- 
ber, arrival city and time, while 
the third is for any remarks. 

You can then type "add", "de- 
lete" or "leave". If you choose 
the latter, the program returns 
to the menu screen. 

If you select "add", then the 
program continues with 240, 
where you can enter a number to 
show where you want a flight to 
go. For example, if you have a 
list of three flights, and you 
want the new one to go between 
two and three, then you would 
enter "3". 

Since three is not greater than 
the current number of flights, 
the program continues with 260, 
where each item is shuffled up 
one index number. In this case 
all of the data for flight number 
three would be re-indexed for 
flight number four. Then with 
lines 270 through 305 you enter 
the data for the new flight num- 
ber three. 

If in line 240 you entered a 
number greater than the current 
number of flights, it would be 
added to the end of the list. The 
program would skip the shuf- 
fling and go directly to state- 
ment 270. 

At 320 you can enter the num- 
ber of a flight to be deleted and 
the index is juggled. 

After any change the program 
returns to 210 to display the cur- 
rent flight reservation data 
stored. You get back to the 
menu screen by typing "leave" 
rather than "add" or "delete." 

The remaining sections of the 
program follow essentially the 
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same format for the various 
types of reservations or informa- 
tion. Hotel data manipulations 
begin at 400, other reservations 
at 600, car rentals at 800 and 
payments at 1000. 

The lineprinter routine begins 
at 1200. I use an old model 15 
Teletype Baudot code printer, 
so many innovative printer con- 
trol functions are not included in 
the output routine. The printer 
section of the program is 
straightforward. Each type of 
reservation is printed following 
a heading with tabs to keep 
things neat. 

The Hotel Address 

The hotel section does have 
one tricky part. The address is 
stored as a single string with 
slash marks (/) between the 
lines. At the end of line 1280 a 
variable A is set equal to the en- 



tire address. 

In 1290 a loop looks at each 
character of the string until a 
slash is found. If no slash is 
identified, the program will con- 
tinue at 1310 by printing the 
variable A. 

If a slash is found, then, in 
1300, a new variable F gets that 
portion of A to the left of the 
slash— that is, the first line of 
the address. F is then printed. 

A is reduced to what remains 
to the right of that slash, and the 
program returns to 1290 to look 
for another slash. 

Aside from that one twist, the 
program prints out variables In 
an organized fashion. 

Note that the program has no 
end. After each function is ac- 
complished the program returns 
to the menu. Whenever you are 
done, you can break out of the 
program manually. ■ 



Program Listing: Itinerary. 



Ifl CLEAR JflBfliDEFIHT I,N.K:DEFETR F,fl,D,E , H.O.P.H.E, T 

2* CLSiPBINTCHliS(23) : 1=66 ;FOft J"l TO 9:BEAD MiPRIHT SI ,W : I-H-66 : NEKT; 1 = 1*66 i PRIH 
TSI.'BV BEN GORaKY"iF0R I"l TO 5BBfl;NEXT: ' DISPLflVS PROGRAM NAME MD 6V LINE 
30 DATA I.T.I ,N,E,H,A,R.Y 

100 CL3;PBINT'Y0U CAN CHOOSE AMY OF THESE FUNCTIONS" : PBINTTAB I 5) ' 1 INPUT BEEEBV 

flTIOM DATA FROM TAPE' i PRINTTAB( 5) "2 FLIGHT DATA" : PBINTTABl 51 "3 HOTEL DATA 

" :PRINTTAB(5} ■« OTHEB RESERVATIONS" 
110 FRINTTftB(5)"5 CAR RENTALS- : PfilMTTAB ( 5) '6 DEPOSITS AND PAYMENTS' ;PRINTTfiB( 5 

)'7 PRINT ITINERARY";PRrMTTAB151"e RECORD DATA ON TAPE" 
120 INPUT 'EHTER NUMBER COHESPDNDING TO CH0ICE";K:ON K GOTO 156,200.190.680.808, 

1000,1280 ,1500i ' 180-120 GIVE MENU SCREEN AND GET CHOICE 
150 'INPUT DATA FROM TAPE 
160 CLH: INPUT-HIT ' tNTER ' WHEN RECORDER BEADY TO PROVIDE DATA"; 3 : INPUTI-l ,NFT, NH 

□T , NO . NACT , NCAR ; FOB I'l TO NFT: INPUTH-l .FDSTE ( I ) , ALM ( I) , DPCIT ( II .DEPTM ( I) .N 

M(I) (ACITII) .ATMID .FCOMd) :NEXT 
170 FOB 1=1 TO NHOTlINPUTI-l.ADATII) ,HOTNAMU) .DRII) ,DDAT(I) :NEKT;FOR I-l TO NO: 

lNPUT|-l,OT(il :HEXT;fOB 1=1 10 NACT; INPUTt-1 ,WHO ( 1 1 .DATDUE ( I) .DTENTU) , DOLD 

EPd) ;nEXT 
160 FOR 1=1 TO NCAR:INPUTt-l,RSNM( I) ,AGKCY in ,PDAT(i) ,PLC (I) (RDATdl .BETLC(l) ;Ne 

XT; GOTO 180 
206 'FLIGHT DATA MANIPULATIONS 

210 CLS;IF NFT^B THEN PBINT "NO FLIGHTS LISTED" ; PRINT ; OOTO 23 
220 PBINTIAE126) "FLIGHTS";eOR 1=1 TO NFTlPBINT 1;" " iFDATE ( II : PRINTIAB ( 5) ALN 1 1 

l.'DEP "lOPCITID;" AT "rDEPTHdl ;PE1NTTAB(S1 " t " ;KM( 1 1 , "ARV • , kCn I T) ; ' AT 
" iATM( I) :PBINTTAB(5) FCOM ( I) iPRINT ; NEXT; 'DISPLAYS FILE OF FLIGHT DATA 
230 PRINT"YOU CAN ADD OR DELETE FLIGHTS OR LEAVE LISTING ALONE. " i INPUT "TYPE 'AD 

D- OR 'DELETE' OB 'LEAVE' AND HIT £NTEB";Z:1F Z^'ALD" THEN 240 ELSE IF 3="D 

ELETE" THEN 32B ELSE IF Z'"LEAVE" THEN 188 ELSE 23 
2J0 INPUT "TO ADD A FLIGHT BETWEEN 2 EXISTING FLIGHTS ENTER THE NUMBER FOR THE N 

EW t'LICHT IN SEQUENCE TO ADD A FLIGHT AT THE END ENTER NEXT NUMBER IN EEQUE 

NCE. ■ ;K 
256 IF l!>KET THEN NrT=NFT-.l : K = NFT;GOTO 270:'ADDS FLIGHT AT END 

268 NFT = NFT*1;F0B I^NFT-1 TO K STEP -1 : FDATE | I + l) =FDATE ( I) ;SRH l+H -ALN ( I) : DPCIT 
(1+1)=DPCIT(I) iDEPTM(ITl)=DEPTM(II :NM( 1*1) -NM(I) : ACir( I+l) -ACIK t ) ;ftTM(I*l) 

^ATMIII :FCOM(I+l)=FC0Mir) : NEXT 
278 INPUT "ENTER DATE OF FLIGHT" ; f'DATt(K) 
275 INPUT "ENTeB AIRLINE NAKE";ALN(K) 
230 IKPUT "ENTER FLIGHT NUMBER" jNMIK) 
285 INPUT "ENTER DEPARTURE CITY"! DPCIT (Kl 
290 INPUT "ENTER DEPABTUEE TIKE" ; DEPTH (K) 



295 INPUT "ENTER ARRIVAL CITY " ; ACIT(K) 

300 INPUT -ENTER ARRIVAL TIME";ATMim ' ' 

305 INPUT "ENTER ANY CffllMENTS" ; FCOM ( K) 
310 GOTO 210 

320 INPUT "ENTER THE NUMBER FOR FLIGHT TO BE DELETED" jJlNFT^MFT-llPOR I-J TO NFT 
:FDATE(I)=FDATE(I*1) ;ALN(I) =ALB(I*1) 1 DPCIT (I) -DPCIT ( 1*1) :DEPTM( I) "DEPTH 1 1+1 
) ;NM(I)=NH(!*1) ;ACIT(I) -ACIT(I+1) 
330 ATM (II -ATM (1*1) ; FCOM { I ) =FCOM ( I+l ) :NEXT:G0T02ie 
400 'HOTEL DATA HANIPULATIONS 

(10 CLS^IF NHOT-0 THEN PRINT "NO HOTELS LISTED" : PBINT : GOT043 
420 PRINTTAB1261 'HOTELS" :PRINT:FOR 1=1 TO NHOTlPRIBT li" " ;HOTNflM ( I ). "ARRIVE "; 

flDATI U ;PR1NT. "DEPART " ; DDAT( J ) i NEXT 
438 PRINT"YOU CAN ADD OB DELETS HOTELS OR LEAVE LIST ALONE. "; INPUT "TYPE 'ADD' 
H 'DELETE' OR 'LEAVE' "; Z : IF Z-"ADD" THEN 448 ELSE IF ^--DELETE" THEN 558 EL 
SE IF J="LEAVE" THEN 100 ELSE 438 
440 INPUT "TO ADD A HOTEL BETWEEN TWO IB LIST ENTER NUHBER NEW HOTEL SHOULD HBVE 
. TO ADD A HOTEL AT END ENTEE NEXT NUMBER IN SEQUENCE. " ;Ki IFK>NHOT THEN NHO 
T=NH0T*liGOT0 460 
150 NH0T=KH0T*1:F0R I=NH0T-1 TO X STEP -1 iHOTNAM( 1*1) =H0TNAH( I) r ADATI 1*1) -ADATI I 

I ;0DAT(I*1)=DDAT(I) ;0B ( I+l ) =0R( II tNEXT 
468 INPUT -ENTER NAME OF HOTEL" ;HOTOAM(K) 

470 INPUT -ENTER ADDRESS OF HOTEL. PUT '/' BETWEEN LINES OF ADDBESS'lDRI K) 
480 INPUT "ENTER ARRIVAL DATE" ; ADAT ( K ) 
490 INPUT "ENTER DEPARTURE DATE" ; DDAT ( K) iGOTO 410 
558 INPUT "ENTER NUMBER OF HOTEL TO BE DELETED-;K 
568 FOR I=K TO NHOTiH0TNAH( I) =HOTNAM( 1*1) : DH( I) =DR1 I+l) i ADAT ( I ) =flDAT( I*! ) ; DDAT( 1 

) =DDAT(I+1) :NEXT:NHOT=NHOT-1:GOTO 418 
688 'OTHER RESERVATION MANIPULATIONS 

610 CLS:IF NO=0 THEN PRINT "BO OTHER RESERVATIONS LISTED' ;GOTO630 
620 FOR 1-1 TO NO:PHINT I;" ' ;OTH ( I ); PRINT ; NEXT 

630 PRINT'YOU CAN ADD OR DELETE RESEEVATIOHS OR LEAVE LIST ALONE. ": INPUT"ENTEB 
ADD' OB 'DELETE' OE 'LEAVE' "; Z ! IF Z="ADn" THEN 648 ELSE IF Z="DELETE" THEN 
678 ELSE IF Z="LEAVE" THEN 100 
610 NO=NO*1;IBPUT"ENTER RESERVATION INFORMATION " ;OTH INO) ;GOTO 618 
670 INPUT "ENTER NUMBER OF ITEM TO BE DELETED" I K:NO-N0-1 :FOR I=K TO NO;0THll)=OT 

H(I*11 :NEXT:GOTO 610 
800 'CAB RENTAL DATA MANIPULATIONS 

810 CLS; IF NCAR=8 THEN PRINT"NO CAR RENTALS" ; PRINTlGOTO 838 
820 FOB 1=1 TO BCAB:PEINT 1;" " ; AGBCV ( II .PDAT I II , PLC ( II ;PBINTTflB(4 ) HSNMl I) .RDAT 

( I| .RETLCII) :NEXT 
838 INPUT "ENTER 'ADD' 'DELETE' OR 'LEAVE' TO MODIFY OR MAINTAIN LIST";ZiIF Z-"A 
DD" THEN 840 ELSE IF I="DELETE" THEN 950 ELSE IF I = *I.EflVE" THEN 180 ELSE 83 



;X 

850 JF K>NCAR THEN NCAR =NCAR*1: K=NCAR:GOT0 870 

868 BCAR = NCAR*1:F0R I-NCAR TOK STEP -1 ;BSNM ( I+l) =RSNM| II : AGNCY ( 1*1) =»GNCY|I| :PD 

AT(I*1)=PDAT(I| ;PL(;(I+l)=PLCa) : RDATl [*1 ) =EDAT( I) ; REILCI I+l) -BETLC ( II :NEXT 
870 INPUT "ENTER AGENCY NAME ' ; AGBCY ( K ) 
830 INPUT "ENTER RESERVATiOB NUMBER" ,-ESBH(ll)' 
890 INPUT "ENTER PICE-UP DATE' : PDAT(K) 
900 INPUT -ENTEE PICK-UP LOCATION" :PLC(X) 
910 INPUT -ENTER RETURN DATE- iRDAT(B) 

920 INPUT -ENTER RETURN LOCATION- jRETLC (K) iGOTO 810 
950 INPUT -ENTER NUMBER TO BE DELETED" ; J iBCAB=NCAE-l i FOB I=J TO NCAE;BESNM( I ) =RS 

NH( I+ll ;flGBCY(II =AGKCy(l+ll ;PDAT(I) =PDAT(I+1I : PLC U) =PLC ( I+l ) ; BOAT! I) =RDAT ( 

1*1) :BETLCU)-BETLC( 1*1) ;NEXT 
960 GOTO 310 

1088 'PAYMENT DATA MANIPULATES 

1818 CLS: IF NACT=0 THEN PRINT"NO PAYMENT ITEMS LISTED" rGOTO 1030 
1028 PRINT. "AMOUNT". -DATE DUE", "DATE SENT":FOR !=J TO NACT; PRJNTl ; " ";WHO(I),DO 

LDEP(I) ,DATDUEiI) . DTSNT ( I ) :NEXT 
1B38 INPUT "ENTER 'ADD' 'DELETE' OE 'LEAVE' TO MODIFY OH MAINTAIN LIST"iaiIF Z=- 

ADD- THEN 1040 ELSE IF E--DELETE" THEN 1100 ELSE IF !-"LEAVE" THEN 180 ELSE 
1330 
1048 NflCT-NACT*l 
1050 INPUT "ENTER 
1068 INPUT 
107 INPUT 
1080 INPUT 
1100 INPUT 



OF AGENCY REQUIRING PAYMENT- ;HHO (NACT) 
■ENTER AMOUNT DUE- iDOLDEP (NACT) 

"ENTEB DATE DUE" ;DfiTDUE (NACT) 

"ENTER DATE SENT" iDTSNT (NACT) ;GOTO1010 

"ENTEB NUMBER TO BE DELETED"; J:NACT"NACT-1 : FOE I-J TO NACT; WHO( 1) 'WHO 

11*1) :DOLDEP(II=D0LDEP(I*i| ;DArDUE (1 ) =DATDUE ( 1*11 : DTSNT ( I ) =DTENT ( 1*1) : GOTO 

101S 
1200 CLE; 'PRINT ITINERARY 

1210 INPUT "ENTER TITLE FOB ITINEBARY" ;TRPNH 

1220 INPUT "KIT 'ENTEB' WHEN LINEPEINTEE IS BEADY" ; Z ;LPBINTSTBING5 11 . 13) 
1230 LPRINT3TBINGS(6 9,-X") :LPRINT: LPRINTTAB( (1 2-LEN (TRPNM) ) /2) TRPNM:LPRIBT: LPBIN 

TSTRING5(69,"X"I :LPBINT:LPRI NT; LPRIMT 
1240 LPB1NTTAB(2S) "F LIGHT S-;LPRINT 
1250 FOR 1=1 TO BFTiLPBINT FOATE (II ;TBB( 20 ) ALN ( I ) ;TAB( 26 ) 'DEP " ;1)PCIT( I) J TAB( 58) 

"AT "iDEPTMID ;LPRINTTAB(20) "#";NM(II ;TAB(26I -ARV " ; ACIT( I) ; TAB (50^ -AT " i AT 

H(I) ;LPR1NTTAB{20)FCOM(I) :LPRINT:NEXI 
1260 ' 

1278 LPRINTiLPRlNT;LPRINTTAB(25l "H T E L E":LPEINT 
1280 eOR 1=1 TO NHOTlLPRINT HOTNAM( 1 ) i TAB( 28) "ftBV " ; ADAT( 1 ) ^ TAB! 40 ) "DEP ";DDAT(I 

I :fl-DR(Il 
1298 FOR J-1 TO LENIA) ;1F MIDS ( A, J, 1 ) <>"/" THEN NEXT: GOTO 1318 
1308 F"LEFTS(A,J-1I ;LPEIBT F : A=RiGHTS ( A, LEN ( A) -J ) ;GOTO 1298 
1318 LPRINT A;LPRlNTiNEXT:LPRINT:LPEINT 
1320 LPRINTTAfl(15)'*C AR RENTAL S"iLPHINT 
1338 FOR I-l TO NCftP;LFRINT AGNCY ( I ); TAB(15 ) "PICK-UP -(PDAT(I);" AT ";PLC(I)lLPR 

IBT RSNMII) ITAB(15I"RETURB -iRDATlI);- AT " ;RETLC( I) iLPRIBTiNEXTlLPRINT; LPB 

INT 
1310 LPR!NTTAB(2S) "0 THE E":LPRINT 
1350 POH 1=1 TO N0;LPB1NT 0T( 1) : LPRINT : NEXT 
1360 LPB1NT;LPRINT:GOTO 100 
1580 'OUTPUT TO TAPE 

1510 CLS; 1NPUT"HIT 'ENTEB' WHEN RECORDER IE READY TO ACCEPT DATA":Z 
1520 PBI NT#-1, NFT, NHOT, NO, NACT, NCAR; FOR I-l TO NFTi PRINT(-1 , FDAT ( II , ALN ( I) , DPCIT 

(I) ,DEPTM(II ,NM(I) ,ACIT(I) ,ATM(I) .FCOM(I| ;NEXT 
1536 FOR 1=1 TO NHOT: PHIBT#-1,ADAT ( II , HOTNAH ( II ,DR ( 1) ,DDAT(I ) ;NEXT 
1540 FOR 1=1 TO N0;PR1NT(-1,0T(1) :NEXT 

1558 FOR 1=1 TO NACT;PRINT(-1,WH0(I) .DATDUEII),DTSNT(I) .DOLDEP(I) ;NEXT 
1568 FOR I-l TO NCAB;PRlNTt-l,RSHM(I) ,AGNCY(I) ,PDAT(II ,PLC(I),BDAT11),RETLC[1) ;N 

EXTlGOTO 100 



PROBLEMS? 

Are you having trouble with advertisers or products? 

If such is the case, please write to the firm 

giving complete details and send a copy of your letter to 

Wayne Green, 80 Microcomputing, 

Peterborough, New Hampshire 03458. 

Be polite — no matter how badly you're shafted. 




We're looking for names and addresses of all the TRS-80 news- 
letters out there. If you produce or are affiliated with such a 
newsletter, please drop a line to. 

|im Perry, Managing Editor 
80 MICROCOMPUTING 
Peterborough NH 03458 

Thanks, 
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DISCOVER THE MAGIC OF WORDPROCESSING 

AND TURN YOUR TRS-80* INTO 

A VERITABLE "OFFICE WIZARD" 

WITH A "NEC SPINWRITER 



1 55 




N EC 5530 

(CENTRONICS I/O) 



hOifttffi ^ i Sfc fl 



^^^^^i^^^^i^: 



What makes NEC your best typewriter quality printer value? 

1. The one and only print "thimble." SPINWRITER'S DURABLE (up to 30 
million impressions) and unique reinforced plastic print element. Up to 
128 characters per print element, with a wide variety of typefaces to 
choose from. 

2, SPEED and RELIABILITY. The SPINWRITER gives you up to three times 
the speed of IBM "Golf Ball" type mechanical printers, along with the 
advantages of a true electronic output printing device. 



3. HUMAN EAR COMPATABILITY. The low pitched strumming noise made 
by the NEC Spinwriter won't leave your ears and nerves aching after a 
hard day's use, as Dot Matrix and mechanical printers tend to. 



THE NEC SPINWRITER 
IS FULLY SERVICED BY NEECO. 



NEC 5530 SPINWRITER (plug compatible to trs-so) $2770-00 

Word Processing Software "Electric Pencil" $ 1 00.00 




Call or Write today for NEC Specifica- 
tions Sheet. (Specify TRS-80'') 

*TRS-80 is a Trademark of Tandy Corp. 



^^^4^ 




NEECO 



Mon-Fri 9:30-5:30 

MasterCharge & 

Visa Accepted 



679 Highland Ave. 
Needham, MA 

02194 (617)449-1760 



p^ Reader Service— see page 147 
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GENERAL 

Even Radio Shack dealers have 

had to learn about the 80 the hard way. 



A Dealer's Experience 



S. M. DeFonzo 
Channel One/Radio Shack 
P.O. Box 427 
Medford. NJ 08055 



I first heard about the TRS-80 
at the annual meeting of 
Radio Shack dealers in August, 
1977, at Cape Cod. There was a 
15 or 20 minute presentation 
during which the magic words, 
inventory and payroll were mur- 
mured and that was ait it took 
for me to be the first to jump up 
with a check for the required 
$100 deposit. 

Imagine — ali my problems 
solved for just $598! 

t wouldn't want you to think 
that i was completely naive. I 
knew the difference between a 
bit, a byte and binary, though 
not thoroughly enough that I 
tried very hard to work it into a 
conversation. I once crammed 
for a College Equivalency Test 
on Electronic Data Processing 
and passed ! i had taken a 
course in programming that ex- 
plained logic tables, number 
base systems and other pro- 
gramming information but the 
test, that could have been lifted 
from an IBM hardware brochure, 
wanted to know such things as 
the speed of data transfer from 
specified disk drives. 

Blackjack and Backgammon 

Our computer arrived in 
November, 1977. We played 
Blackjack for a little while, then 
learned the rules for Backgam- 
mon and played that until our 
Radio Shack payroll program ar- 
rived. 

Looking back, I realize that it 



wasn't much of a program. It 
was limited to 12 employees; I 
had to tell it how much to deduct 
for New Jersey income tax; I 
endlessly fed data onto and off 
of cassettes that had to be care- 
fully marked so that you had the 
most current one. 

I worked through the Level I 
manual and felt, now that I was 
an "expert programmer," I could 
not only improve on their payroll 
program, but I could write one of 
my own to handle sales slips 
and help with my inventory prob- 
lems. 

We stock approximately 3500 
different items in the retail por- 
tion of our business and thou- 
sands of parts for our service 
operation. 

Over the next few months, we 
added Level II Basic, an expan- 
sion interface, a line printer and 
installed 16K of memory. The 
TRS-80 was doing our payroll, it 
calculated commissions, hourly 
(with overtime) and salary 
amounts, federal and state de- 
ductions and printed the pay- 
stubs. All I had to do was write 
the checks and sign them. 

My need for an inventory man- 
agement system was still as 
urgent as ever, but I had my 
sales slip program running. I 
entered part numbers, quanti- 
ties and prices for each item on 
each sales slip and specified 
categories like CB, TV, Audio, 
Parts, Service. The program 
checked sales tax, extensions, 
totaled each column and then 
gave me a sorted list of parts 
sold. 

Weil! That may not sound like 
much to you, but it's a lot easier 
to go through 3000 index cards. 



in sequence and remove all the 
sold items at once, than to go 
back and forth over drawers of 
cards subtracting batteries 
sold, one at a time. 

Modifications 

Time passed and I was get- 
ting monthly summaries of 
sales by category and gross 
margin on each of the cate- 
gories. I had come a long way. 
Level 1 1 was no longer a mystery. 
I even understood arrays. (There 
was a time when I thought I 
would never get that!) 

We modified our computer a 
number of times as fixes for 
problems were discovered. We 
had about $3000 in it now. I was 
hooked, working nights on my 
programming, while running the 
business during the day. We 
ordered our first disk drive and I 
was ready for the big time. 

The drive arrived December 
19, 1978. it came with one disk- 
ette that contained the DOS and 
about 16 sheets of instructions. 
Actually, 10 of the sheets were 
instructions and the other 6 
were additions and corrections 
to the first 10. 

I had never seen a disk drive 
before and had never even heard 
of a disk operating system. 1 had 
no idea which end of the disk- 
ette was up and the instructions 
didn't help much, but 1 soon 
figured it out and had no trouble 
saving programs and loading 
them back from disk. 

Heaven; after a year of cas- 
sette tapes! 

But the instructions were of 
absolutely no help in creating 
data files. I shot Christmas, 
while I tried. The day after I 



drove 150 miles to buy an inven- 
tory system from another Radio 
Shack dealer arid installed 
another 16K in my expansion in- 
terface. Because I couldn't even 
back up a diskette, I drove 
another 30 miles each way to 
find a computer store with disk- 
ettes in stock. 

I spent every waking hour at 
the computer. I tried to learn 
Disk BASIC, data file manipula- 
tion and I entered inventory 
items — physically counting 
stock so that I'd be entering ac- 
curate data. 

Our inventory system, as 
originally puchased, had no pro- 
vision for tracking costs and 
gross profits. The accountant in 
me wouldn't tolerate that, so I 
added that capability and a few 
more features. 

Later I ran into the original 
programmer at a show and told 
him about the changes I'd made, 
showed him examples of the re- 
ports the program was now gen- 
erating, pointed out the little 
trick I'd found to cut the sale cy- 
cle time in half. Three weeks 
later I received an ad from him 
offering the improved inventory 
system! He was willing to sell 
me my ideas! That's when I 
learned why programmers are 
so close-mouthed. 

Smooth Sailing/Choppy Waters 

I'd like to report that all went 
smoothly from then on, but it 
didn't. We had one of the earl- 
iest TRS-80's and Tandy didn't 
know yet about buffered cables 
and separated power lines. The 
little piece of ribbon cable that 
connects the two PC boards in 
the CPU had been flexed so of- 
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TRS-80* I 







i BUNDLE 

When you buy your 



m TRS80>>^ equipment! i 

^ Use our (oil free number to 

^^ check our price before you buy M 

^ a PRS 80'*^ . . . anywhere! 







P BOX 809B PENSACOLA, FL 32505 
!^ F LOR IDA 904/438-6507 

^^ nationwide 1-800 874 1551 






!!NOW AVAILABLE!! 
I NDEX 

Sequential 

Access 

Method 

* Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without Recopying File 

* Add Records to Disk Files in Any Sequence 

* Variable Key Length From 1 to 50 Characters 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

- Easier Program Development 

- Improved Operating Characteristics 

- Reduce or Eliminate Sorting 

- Improved Pertocmance 



Documentation 

On Diskette S5D.00 



ISAM SUBROUTINES 
ISAM UTILITIES 

- PLUS - Free Mailing List Sample Application 
Add 6"/i> Sales Tax for Califotnia Orders 



TR&60 MODEL I fi II SOFTWARE FROM 

Johnson Associates nar- 24 Hour Order Line 
PC- Box 1 402M For Bank Card Sales 

Redding. CA 96001 (91 6) 221-0740 

WRITE FOR FREE CATALOG ,-oc 



TRS-80 



LOWER CASE AND GRAPHIC SYMBOLS 
GENERATOR KIT.CG-16 $94.50 



' Msisrawtnt BwwcE. 




^ 
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TRUE 2 LINE DECENDER LOWER CASE, 
ELECTRONIC SYMBOLS, THIN LINE 
GRAPHICS, GAME SYMBOLS, TEXTURED 
BACKGROUNDS, AND MANY MORE. 
COMPATIBLE WITH BASIC, ALL DOS AND 
MACHINE LANGUAGE PROGRAMS. DEMO 
CASSETTE IS INCLUDED. ELECTRIC PENCIL 
TYPE L.C. MOD. IS REQUIRED. IF NOT, ADD 
$18.50 FOR MEMORY AND SWITCHES KIT. 
TRS-80 IS A TRADEMARK OF TANDY CORP. 

ADD $1,50 FOR SHIPPING AND HANDLING. CALIF, RESIDENTS ADD 6% SALES TAX. 
SEND CHECK OR MONEY ORDER TO: 

G.P. ASSOCIATES, P.O. BOX 22822, SACRAMENTO, CA 95822 



. 1-- 204 . 



TRS-80 



SYNCHRONOUS DATA SEPARATOR 
FOR DISK USERS. SDS $34.50 



IF YOU ARE EXPERIENCING READ OR SEEK ERROR ON THE INNER MOST TRACKS 
OF YOUR DISK DRIVES, THIS IS BECAUSE THE DATA SEPARATOR AS 
RECOMMENDED BY THE DISK CONTROLLER'S MANUFACTURER IS NOT IN YOUR 
EXPANSION INTERFACE, THE SYNCHRONOUS DATA SEPARATOR WILL ELIMI- 
NATE 100% OF THE DISK READ ERRORS AND SPEEDS UP DISK ACCESS TIME BY 
ELIMINATING RETRIES BY THE DISK CONTROLLER, NO MORE PREMIUM 
DISKETTES TO BUY. THE SDS DOES NOT USE ONE-SHOTS AND IS THE MOST 
RELIABLE AND ACCURATE DATA SEPARATOR AVAILABLE. 

ADD$1.50FORSHIPPING AND HANDLING. CALIF, RESIDENCE ADD 6% SALES TAX 
SEND CHECK OR MONEY ORDER TO: 

G.P. ASSOCIATES, P.O. BOX 22822, SACRAMENTO, CA 95822 

p^203 



For Your 



TRS- 
80 

DU.'VL I)1SK.-32K 
BUSINESS SYSTEM 



QUALITY 

DTI 
PAYROLL 

No. 410 

DATA TRAIN'S many years 
of small business computer 
experience in accounting pro- 
gram products brings to your 
business all of the quality fea- 
tures, functions, screen dis- 
plays, standard reports, user 
designed reports and operator 
reference manuals; allowing 
you to efficiently manage the 
payroii of your company. 

• 50 employees per mini-disk. 

• Runs in all states. 

• You maintain the P/R pro- 
duct without programing. 

• Flexible, easy to use. 

• No maintenence fees. 



$235. 

Product Info <& 
License/Order 
Form. 

FROM..... 




PHONE 

(503) 476-1467.. 

840 N.W. 6th STREET, SUITE 3 
GRANTS pass; OREGON 97526 

Available Soon* 

• General Ledger Accounting 

• Accounts Payable 

" Accounts Receivable 

• Fixed Asset Accounting 

Trademark Radio Shack, Div Tandy Corp. 



1-^ Header Service— see page 147 
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ten by our upgrading and modi- 
fications tfiat some of the sec- 
tions that should have had con- 
necting wires didn't have them 
any more. 

I learned the hard way about 
backups, backups, backups. We 
even rewired our store, when we 
realized that the computer 
crashed every time the com- 
pressor of our old refrigerator 
went on. Then we bought an iso- 
lation transformer thinking that 
our service shop might be part 
of the problem-stray voltages 
and all that. 

In desperation, we had the 
Level II board replaced, and that 
did it! Now our inventory system 
was finally running reliably and 
everything in the store had been 
entered into data files. 

We moved the computer out 
to the front of the store because 
the system was designed to 
print out the sales receipt at the 
point of sale. I was turning my 
baby over to our ham-fisted 
sales people for the acid test— 
and they didn't like it at ail! The 
TRS-80 had no tolerance for ap- 
proximate entries, and my sales 
people used to jot cryptic notes 
on receipts which they relied on 
me to interpret. It had given me 
fits while I was entering their 
sales slips, 

I suppose they did everything 
to that poor inventory system 
that could have been done, from 
jamming diskettes in upside 
down {if anyone has any ideas 
what to do about disks with ruf- 
fled centers, please pass them 
along) to setting car speakers, 
preferably the ones with 20 oz. 
magnets, on top of the disk 
drives. 

They wereentering everything 
in the miscellaneous category 
which was supposed' to be re- 
served for those few items that 
had not yet been entered in the 
data files. It was just too much 
trouble for them to use the cor- 
rect stock number. 

Money changed their atti- 
tude! Formerly they were being 
paid a percentage of total sales. 
This was a great incentive to 
move things out— regardless of 
price— and put me in the ridic- 
ulous position of occasionally 
paying a commission on an item 
that we sold at a loss. 

We changed the system so 



that they were paid a percen- 
tage of the gross profit— the dif- 
ference between what we paid 
for it and what it sold for. The 
computer gave them credit only 
if the cost was known, so the 
item had to be entered correctly. 
I learned about idiot-proofing 
systems. Anybody can write a 
program to be used by computer 
experts, but writing a program 
used in full view of an impatient, 
intolerant customer, by some- 
one who can't even type— that's 
another thing altogether. 

First Project 

We began this project 
because we needed an inven- 
tory system that would automat- 
icalty reorder merchandise. I 
used to spend at least one Sun- 
day a month, from eight in the 



I'm doing all this with hard- 
ware that lists for $4800: a 
TRS-80 with Level II and 32K of 
memory;3minidiskdrives;anda 
tractor-feed line printer. 

None of our employees feel 
threatened by the computer any 
more. They are intrigued by the 
novelty and enjoy showing off — 
"Look at me, I'm a computer op- 
erator!" 

Management Advantage 

As for me, I know more about 
our business and which catego- 
ries of merchandise are worth 
the trouble and expense of 
stocking, counting, dusting. 
There are no more traumatic 
confrontations with personnel, 
"You're not paying me what I'm 
worth" or with sales reps who 
flash fancy figures. 



In desperation, we had the 

Level II board replaeed, 

and that did it. 



morning until well into the eve- 
ning, making up an order for the 
little packages of hardware and 
tools that you usually see hang- 
ing on pegboard walls. I was 
very conscientious at the begin- 
ning of the day, adding up the 
quantities sold in the last 
quarter as listed on my index 
cards and plotting the exact 
number of each item I should 
order. But, by "Sixty Minutes," 
when I was getting into all the 
audio cables, my patience dete- 
riorated. By the time I got into 
the little plastic bags of screws 
and spade lugs, if we needed 
any at all, we got a dozen. (The 
computer now does this job in 
iess than 15 minutes without 
human attention and I spend my 
Sundays programming, which is 
lots more fun.) 

But now we are doing so 
much more. We have a complete 
business system up and run- 
ning—the reliability is extreme- 
ly good, even when used by nov- 
ices. All of the accounting data 
regarding sales and costs and 
commissions are automatically 
entered into the General Ledger. 
This interactive system mini- 
mizes the opportunity for errors. 



I have solid, objective, un- 
arguable data on which to base 
business decisions. Our tech- 
nicians are given a goal that 
they must bill — exceed that goal 
and they get a raise. Miss it by 
more than ten percent two 
months in a row and they are 
looking for another job. 

Our insurance is based on 
real inventory amounts — not 
"guesstimates." I have exact 
sales data every day, a perpe- 
tual inventory, and my financial 
statements by the second of the 
month which allow me time to 
make required changes in adver- 
tising budgets, orders, etc., 
while they can still do some 
good. 

When prices increase, I have 
the new prices in the computer 
in a matter of minutes. Nobody 
can switch price tags on us. I 
can stock smaller quantities of 
each item because it's so easy 
to make up an order, therefore I 
have less money tied up in in- 
ventory. There is a certain dis- 
cipline that is forced by a com- 
puterized business system. 
"This" can't be done until "that" 
is finished and as a result less 
paperwork piles up on my desk. 



Our greatest problem now is 
that business programs avail- 
able for low-cost systems are 
generally written by program- 
mers, not by accountants or 
business people. And they're 
written to sell, not to use. 

For example, I purchased the 
Osborne books and learned 
about features that could be in- 
cluded in business systems. I 
was impressed so I bought the 
rights to one of the TRS-80 
BASIC interpretations of the 
Osborne General Ledger. It is 
chock full of clever program- 
ming. I learned from it as I have 
from most of the programs I 
have studied. But the things it 
doesn't do are appalling. 

For instance, the annual 
statements don't show last 
year's figures as a basis for 
comparison with this year's 
figures. That's one of the major 
purposes of a profit and loss 
statement! 

1 have a unique vantage point 
in this whole matter of small 
business systems. I am an ac- 
countant; I use my TRS-80 to run 
my own retail and service bus- 
iness; I have paid my dues as a 
programmer; and I am a pragma- 
tist. 

As a Radio Shack dealer, I 
have a few additional advan- 
tages—but not as many as you 
might think. We can buy more 
cheaply than you (unless yours 
fell off a truck). And we 
sometimes hear about new 
products before you do. But we 
usually learn about solutions to 
problems from Microcomputing 
or one of the other magazines. 
We don't get any more training 
or any better service than you — 
Tandy VIP's figure they don't 
have to convince us. We don't 
get free catalogs or free bat- 
teries. (We even have to buy the 
battery cards!) 

But where the computer is 
concerned. Radio Shack dealers 
have the best of all worlds. We 
can carry any Radio Shack mer- 
chandise we wish, but, unlike 
company-owned stores, we can 
also buy from other sources. 

Incidentally, dealers have to 
pay shipping costs both ways 
when defective merchandise 
must be shipped to the repair 
center. We even have to buy the 
special forms required by Radio 
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Shack. So those ads you see in 

the magazines from Radio 
Shack's that offer equipment at 
a discount and invite you to 
have the warranty honored at 
any Radio Shack store are cer- 
tainly not referring to ours, nor 
to any of the other dealers we 
know. 

We are sold on the TRS-80, 
though we can sell any system 
we wish. We believe that there is 
no need to wait any longer for a 
small business system. We 
don't recommend that you de- 
velop it the way we did, unless 
you have two years you don't 
know what to do with. There's no 
need. Good software is avail- 
able and that is the most im- 
portant part of your purchase 
and the people providing it. 

Please don't shop primarily 
for price or speed of delivery. 
Makealist of the tasks you want 
a computer to do for you. Be 
specific. Be warned that you will 
need a couple of weeks of hand- 
holding and your people will 
need a bit of training, though 
good programs minimize the 



need for training. 

See the exact system you will 
be buying in use. Try it yourself 
and see what happens if you en- 
ter the wrong information. How 
easy is it to goof things up and 
to recover from the goofs? Ex- 
amine the reports it generates 
and get your accountant to ex- 
amine them. 

Don't buy promises; every pro- 
grammer has a terrific routine 
that will be ready in the next 
week or so. (I've got one myself.) 
Find a system that does Just 
about everything you want it to 
do right now. 

If some of your requirements 
are unique customizing is usual- 
ly no big problem but major 
changes can create major head- 
aches. 

Lastly, find a dealer who 
knows business systems; buy 
your entire system fronn him, so 
that he feels an obligation to 
help you through the start-up 
problems. Then buy it. We think 
you'll wonder how you ever oper- 
ated a business without it. 
That's how we feel! ■ 



INTELLIGENT 
TERMINAL SOFTWARE 

WITH FULL 
PAGING CAPABILITIES 

• CASSETTE AND DISK VERSION • 

Z80 ASSEMBLY LANGUAGE PROGRAM GIVES 
YOUR COMPUTER THESE FEATURES: 

• Line Scroll Up/Scroll Down 

• Page Up/Poge Down 

• Screenlock Top and Bottom 

• Full Cursor Control 

• Memory Buffer Overflow Protection 

• Automatic Right Justification 

• Automatic Formatting 

• Full/Half Duplex 

• Disk Version-File Upload/File Download 

LEVEL II COMPUTERS - TERMCOM '" RS-232 
INTERFACE BOX GIVES YOU INTELLIGENT TERMINAL 
CAPABILITIES WITHOUT EXPANSION INTERFACE, 

TERMCOM'" RS-232 Interface Box Includes 
R S Connector, Power Cables and Cassette 

Intelligent Terminal Software $129.00 

Disk Software $ 45.00 

Documentation Only $ 10.00 

STATCOM,. .. 

5758 Balcones Drive Suite 202 
Austin, Texas 78731 51 2/451 -0221 



Sirius Systems introduces lower 
prices to quality drives! 



RemexRFD 4000/8" 
Floppy Disc Drive 
Double the storage! 
Double sided . . . 
Double density!! 



'■"•■ii 



549 




95 






otters quality and features found in drives costing 
much more! ■ Single or Double Density ■ Double-Sided Drive ■ Door 
Lock INCLUDED ■ Write-Protect INCLUDED ■ 180 Day Warranty 
■ Compatible with Shugart 850/851 ■ Low Power Operation ensures 
LONGER LIFE!! ■ Model RFD 4001 offers Data and Sector Separator 

AVAILABLE OPTIONS/ACCESSORtES 

n Dual Drive Power Supply D Single Drive Power Supply and Cabinet, S1 1 9.95 

and Cabinet, $139.95 Q Interlace Manual, $2.95 

D RFD 4000 Manual, $5 95 D Dnve Cabtnet, $29.95 □ RFD 4001 , $564.95 

SIRIUS 

me Perfect 
Add-On for 
your TRS-80* 

I Comes complete 

ready to plug in 

and run I 
t 5ms track to track 




SIRIUS 80+1 ^'S^ A < 
(Single Head) ^W*V«9' 

SIRIUS 30+2 (Oual Head) $419.95 

■TRS-80;c: Tandy Corp 



MPI-51/52 



A Great 

Reliable 

Mini-Drive! 




Remex 1000B 

If you've been looking for a 
less expensive floppy disc 
drive, but not wanting to 
sacrifice quality— 
your search is over! 



419 



95 




DISCOUNTS AVAILABLE 



You get both in the Remex 1000BI For only $41 9.95 look at what you get: 
8" Floppy Drive ■ Single or Double Density ■ Hard or Soft Sectoring ■ 
Media Protection Feature ■ Single Density Data Separator ■ 180 Day 
Factory Warranty 

AVAILABLE OPTIONS/ACCESSORIES 

□ Door Lock, $19 95 □ Dual Drive Power Supply, S91 95 n Interface Manual. $2 95 

□ Write-Protea. $19 95 \J Single Drive Power Supply. $69 95 Q Interlace Adapter, $12.95 

□ Connectors, $9.95 □ Drive Cabinet, $24.95 (Remex to Shugart) 



I Fast! 5ms track 
to track access 

■ Exclusive Pulley- 
Band Desigrj 

■ Unique DoorlEjector Mechanism 
' Reliable 1 \ % Speed Slabilily 



MPI-S1 

(Single Head) 

MPI-5Z (Dual Head) $349.95 



95 



J^' 



SIRIUS 
SYSTEMS 



P Box 9748. KnoKville TN 37920 

Phone Orders accepted 9AM-7PM (EST) 615/577-1072 

n Check n Moiey Order U C D □ MC n VISA n A£ 



NAME 



ADDRESS 



EXPIRATION DATE 



CITY 



"STTTT 



"TIP CARDHOLDERS SIGNATURE 



Add $7 00 per Drive for Shioping/HarOling Tennessee residents add! 

add 10% (payment m U S currency only) 



.sales la" Foreign orders 
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Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software"— "In- 
stant Software" — "Level IV'products and so on, 

Just imagine . . , 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Piioto Point pacltage comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS tool) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little /masf/naf/on,'.' 

For fast real time programming it is your lowest 
cost peripheral at iig.^^ 



Announcing 
NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 6 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 5 other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! onlySl4.95 



O 

< 

m 

o3 

tr. 

UJ 

> 




(COUPON) - 



Micro Matrix 

P.O. Box 938 • Pactfica. CA 94044 

Send for yours NOW: {41 5) 355-4635 

Name .__^ 

Address 

City 

Zip 



st._ 



Photopoint 
n $19.95 

Pen Basic 
I I $14.95 



Card# 
Ex. 
Date __ 



Money 
CK. Order Visa MC 

I.: D a a 



WORD PROCESSING PRINTER 




IBM SELECTRIC TERMINAL 

^795.00 

TRS-80®DIRECT PARALLEL 



• FUNCTIONALLY TESTED 

• CABLES INCLUDED 

• NO SOFTWARE REQUIRED 

• OFF LINE TYPEWRITER 

• DELIVERY STOCK TO 5 WKS 

• PACKING AND HANDLING *25 

• SHIPPING COLLECT 

• CASHIER CHECK, MONEY ORDER 



RS232 SERIAL 

AND/OR ^ 

CENTRONICS 

TYPE 

PARALLEL 

INTERFACE 

ONLY *345.°" 



McClain & Associates, Inc. 

5104 East 65th Street 

Indianapolis, Indiana 46220 

(317) 842-0526 



^71 




TRS-80'— CONDENSE 

ThB Ultimate in BASiC 
Compression Utilities 

** Release 1.3 Now Available * 




Write BASIC programs using single statement lines for ease 
of maintenance. 

Write BASIC programs with unlimited remarks and comments 
to improve program readability and documentation... 

— AND STILL GET — 
OPTIMUM USE OF MEMORY — FASTER PROGRAM 
EXECUTION 

Compresses programs up to 70% of original size 

Improves execution time by as much as 30% 

Creates multiple-statement program lines 

Blank compression 

Remark and comment deletion 

Renumbers GOTO, GOSUB, THEN, ELSE, and RESUh^E 

statements which reference deleted line numbers 

PLUS THESE NEW USER REQUESTED OPTIONS: 

- Retention of low numbered remark statements 

- Checkpoint / Restart Facilities 

- Phase 1 work file 



Model I $21.95 

(Diskette) 



Model II $24.95 

(Diskette) 



iNTERNATiONAL SOFTWARE ASSOCIATES 

P.O. Box 14805 ^11 
Omaha. Ne. 68124 



Tandy Corporation* 
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STYLE 



Make your programs people oriented, do away 
with the enter key with the techniques discussed here. 



INKEYS 



Gary J. Himler 
11300 Zelzah Ave. 
Granada Hills, CA 91344 



Programs frequently require 
you to interact witti your 
computer by entering certain in- 
formation via the keyboard. How 
often tiave you seen: 

DO YOU WANT INSTRUCTIONS (Y/Nj? 

You would ttien respond by flit- 
ting the Y or N key, followed by 
the ENTER key. The program 
line was most iikely: 

100 PBINT-DO YOU WANT INSTRUC- 
TIONS (Y/Nr;:INPUT A$ 

Line 100 prints the message 
on the screen and the computer 
waits for your answer. However, 
the computer does not hear your 
answer until you press the 
ENTER key. 



Reaction Time 

TRS-80 Level II offers an ef- 
fective way of cutting this effort 
in half, by letting your computer 
react immediately to your entry 
without pressing the ENTER 
key. Try program 1 and see what 
happens. 

We nnust understand how the 
keyboard talks to the computer. 
Every keyboard character, both 
upper and lowercase, causes a 
numerical value to be output to 
the computer by the keyboard 
ROM (Read Only Memory). This 
numerical value is the ASCII 
code for that particular charac- 
ter or symbol. The computer in- 
terprets this ASCII code number 
as told to it by the program 
which you have loaded. 

Table 1 shows the printing 
codes used by the TRS-80 to 
print a number, an alpha 
character or a symbol (e.g. *&•# 
etc.). To understand how the 
ASCII codes work, try Program 
2. 

Line 10 is the PRINT state- 
ment usually used to print a 
message on the screen; here 
"ABC". 

Line 20 prints the same 
message using ASCII com- 



5 CLS 

10 PRINT"ABE YOU OVER 21 (Y/N|?" 

20 60SUB 900 

30 IF KB - 89 PRINT@320,"HOW ABOUT YOUR PHONE NUMBER?":END 

40 PBINT@320,"HERE IS A DIME — CALL ME WHEN YOU ARE!" 

399 END 

900 KB$ = INKEYS:IF KB$ = "-0070900 

910 KB = ASC(KB$):RETURN 



Program 1. 



mands. You might guess that 65 
Is ASCII for "A", 66 for "B" and 
67 for "C". Try to verify this with 
Program 3, 

String Functions 

Two string expressions, used 
in theTRS-80, relate to the ASCII 
code. If you want the computer 
to print a specific character, as 
we did in line 20 of Program 2 or 
3, use the expression PRINT 
CHR$(X}. 

If, however, you want the 
computer to listen to the key- 
board for your answer, you must 
use the ASC(string) expression. 
This might be confusing at first. 
See if this helps: 

• The ASCII code for A is 65, as 
shown in Table 1; 

• PRINT CHR$(65) will make 
the computer print A; 

• PRINT ASC("A") will make 
the computer print 65; 

• Whenever you hit the A key, 
the keyboard tells the com- 
puter 65. 

There are also 31 control 
codes which cause the comput- 
er to take certain actions with- 
out printing anything on the 
screen. Table 2 lists the five con- 
trol codes most useful to the 
programmer and the normal 
functions. Later, you will see 
how you can make the computer 
ignore these control commands, 
or even how to make the com- 
puter react to them differently. 

The TRS-80 has an INKEY$ 
command which recognizes a 
keyboard entry without the need 
to hit ENTER. 



Many of my programs use the 
magic statement GOSUB900. 
This subroutine looks like this: 



900 KBS = INKEY$: IF KB$ = ""GOTO 900 
910 KB = ASC(KBS): RETURN 



KBS Stands for Key Board string 
variable. Since the INKEY$ is a 
string command, it must be 
matched to a string variable or a 
TM error will occur. 
fNKEY$ tells the computer to 
scan the keyboard and to detect 
a keystrobe when it occurs. 
IF KB$-""GOTO 900 tells the 
computer to keep scanning the 
keyboard in the absence of a key 
strobe (KB$ = "" telis the com- 
puter that the 'value' of KB$ is 
nothing, or no input). 
KB^ASC(KB$) sets up a new 
variable which you can use 
throughout the program, equal 
to the ASCII equivalent of the 
key strobe KB$. You can now 
save memory in your program by 
just using KB instead of having 
to use ASC(KB$) each time you 
want the ASCII value of a key 
character. 

Armed with all this new 
knowledge, let's take another 
look at Program 1 and try to 
make more sense out of each 
line. 

Program 1 Revisited 

Line 10 asks a question and 
passes control to line 20. Not 
that there is no INPUT state- 
ment requiring an ENTER ac- 
tion, yet, the computer halts and 
waits for you. This is accom- 
plished in line 900. 

Line 30 is the decision maker. 
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5 
10 
20 
30 


CLS 

PRINT @320,"ABC' 

PRINT @448,CHR$(65);CHBS|66);CHRS(67); 

GOTO30 

Program 2. 



5 


CLS 


10 


PRINT @320."TO ERASE THIS LINE HIT "jCHRSfgS) 


20 


GOSUB 900:IF KB08 GOTO 20 


30 


PRINT C'i320.CHR$(30); 




Program 4. 



5 


CLS 












10 


FOR N = 


32TO55;FOR¥ = 0TO3 


z 


'-(N 


+ 24 


Y) 


20 


PRINT Z 


CHR$(Zj,:NEXTY,N 

Program 3. 











Since 89 is the ASCII value for Y, 
the computer executes the print 
statement of line 30 if the key 
strobe is Y and drops to the print 
statement in line 40 if the key 
strobe is not Y. 

What would happen if you 
entered G orZorany other char- 
acter instead of just Y or N? 
Well, since our program only 
tests for Y, any other character 
passes control to line 40 and the 
Not Y statement is printed. 

INKEYS to the rescue! Add 
line 35: 

35 IFKBO78G0T0 20 

This tells the computer: If the 
input was not Y (line 30 did not 
take control), then you must ig- 
nore any other input except N 
(the ASCII code for N is 78); 
otherwise stay right in the IN- 
KEYS subroutine. 

How often have you inadver- 
tently hit the wrong key when 
answering your computer, giv- 
ing it an instruction you could 
not undo — like hitting the 
CLEAR key when you did not 
mean to? Or the ■!■ key which 
promptly but erroneously eras- 
ed the next line on the screen? 

Well, as you might expect, IN- 
KEYS helps again. Let's say you 
want to protect against those 
two wrong inputs that we just 
mentioned. Change line 20 of 
Program 1 as follows: 



20 GOSUB 900:IF KB = 10 OR KB = 31 
GOTO 20 



From Table 2 you see that 10 
is the ASCII code for Line Feed 
(i) and 31 is the code for CLEAR. 
You have now told the computer 
not to accept those two com- 



mands. If they occur, the pro- 
gram goes right back to subrou- 
tine 900 and waits for another 
key strobe. To understand the 
implications of this statement, 
delete line 35 which you added a 
little while ago. Now the com- 
puter will ignore only the CLEAR 
and Line Feed commands and 
accept any other input besides 
Y as a No answer. 

Instead of telling the com- 
puter to ignore certain control 
codes, you can instruct it to use 
these control codes for pur- 
poses other than their normal 
ones. 

Different Functions 

For example, the backspace 
character (-^) normally results in 
wiping out the last character on 
the screen. What if you wanted 
that same key to erase the entire 
line instead? Program 4 shows 
you how. 

Add the familiar lines 900 and 
910 as in Program 1 and ex- 
amine the statements. You'll 
notice two things. 

First, the computer now 
prints the actual backspace 
character — . Since hitting the 
backspace key tells the comput- 
er to do its "backspace" act, it 
does not print the backspace 
character. This key is one of the 
nonprinting codes. As you see 
from Table 2, the backspace key 
actually gives the computer the 
ASCII code of 8. 

We can see from Table 1 that 
ASCII code 93 prints the symbol 
^- Thus, the print statement of 
line 10, calling for CHR$(93), 
prints the backspace character 
and the decision statement of 
line 20 ignores all but the back- 
space key (KB =8). 



If you hit the backspace key, 
control passes to line 30, which 
brings up the second new point, 
PRINT CHR$(30) instructs the 
computerto exercise the control 
code 30, which causes the line 
to be erased. 

Do I hear some of you say "Oh 
yeah? KB$ is a string variable! 
How do you get the computer to 
react to a numeric keyboard en- 
try?" 

Actually there are two ways to 
do this. First you can use the 
KB$ notation for numbers as 
well as for letters. Table 1 shows 
that the ASCII codes for 
through 9 are 48 through 57. So 
if you want the computer to re- 
act to a keystrobe of 6, you pro- 
gram"IFKB$-54THEN " 

And there is another way. 
VAL(KB$) extracts the numeric 



equivalent of the string variable 
KB$. So you can also program 

"IF VAL(KB$) = 6 THEN ". 

If you have a lot of numerical 
decisions to make, you will save 
memory by creating a new vari- 
able, for instance N with the 
statement: 

LET N=VAL(KB$) 

which will allow you to use the 
shorter statement "IF N=6 
THEN -- . ■' 

How will we protect against 
"out of limit" numerical entries? 
Suppose we have a menu of 
choices, numbered from 1 to 5. 
The program will probably crash 
if you were to input or 6. To 
guard against this, use the 
statement in Example 1. 

I can hear you already! 



Code 


Key 


Normal Function 


8 


- 


Backspace and erase last character 


9 


— 


Tab to next index position 


10 


1 


Line teed 


13 


ENTER 


Carnage return and line feed 


30 


none 


Erase to end of line 


31 


CLEAR 


Erase to end of page 




Table 2. Control Codes 



Code 


Character 


Code Character 


Code 


Character 


Code 


Character 


32 


space 


56 


8 


80 


P 


104 


h 


33 


1 


57 


9 


81 





105 


i 


34 




58 




82 


R 


106 


i 


35 


# 


59 




83 


s 


107 


k 


36 


$ 


60 


< 


84 


T 


108 


1 


37 


% 


61 


= 


85 


U 


109 


m 


39 


S 


62 


> 


86 


V 


110 


n 


39 




63 


? 


87 


w 


111 


o 


40 


( 


64 


& 


88 


X 


112 


P 


41 


) 


65 


A 


89 


Y 


113 


q 


42 




66 


B 


90 


Z 


114 


r 


43 


+ 


67 


C 


91 


t 


115 


s 


44 




68 


D 


92 


I 


116 


1 


45 




69 


E 


93 


- 


117 


J 


46 




70 


F 


94 


- 


118 


V 


47 


1 


71 


G 


95 




119 


w 


48 


a 


72 


H 


96 


sftifl & 


120 


X 


49 


1 


73 


1 


97 


a 


121 


y 


50 


2 


74 


J 


98 


b 


122 


z 


51 


3 


75 


K 


99 


c 


123 


Sfllfl t 


52 


4 


76 


L 


100 


d 


124 


shift t 


53 


5 


77 


rv! 


101 


e 


125 


shift - 


54 


6 


78 


N 


102 


t 


126 


shift - 


55 


7 


79 


o 


103 


g 


127 


- 






Table 1 


ASCII Character Codes 







104 • 80 Microcomputing, April 1980 



"Well, that's great. But what 
do you do if you must enter a 
number with more than one 
digit? After all, the INKEY$ com- 
mand makes the computer react 
immediateiy to a keyboard in- 
put." 

Weli, you've got me there! But 
you can stiii take advantage of 
the INKEY$ command, followed 
by the ENTER command. 

Let's assume you have a 
menu of 12 items. You might use 
Program 5. 

Line 100 accepts keystrobes 
between and 9. On the first 
keystrobe N equals the numeric 



value of the keystrobe. 

Line 110 tests for an ENTER 
command (ASCII code of 13). In 
the absence of an ENTER com- 
mand, control is returned to line 
100. When the second keystrobe 
is also between and 9, the ex- 
isting value of N is multiplied 
by 10 and the new keystrobe 
(VAL{KB$)) is added to that re- 
sult. Line 130 rejects answers 
less than 1 or greater than 12. 

INKEY$ is a powerful com- 
mand. Learn how to use it and it 
will pay big dividends helping 
you write more professional pro- 
grams. ■ 



100 
110 
120 


GOSUB900 : IF KB>47 AND KB<58 N 
IFKB$<>13G0T0 100 
1FN<1 OB N>12G0T0, ... 

Program 5. 


= 10 


N 


+ VAL(KB$) 



50 GOSUB 900 : IF VAL(KB$K1 OR VAL(KB$)>5 GOTO 50 

Example 1 



VERBATIM® ATHANA® GEORGIA MAGNETICS® 

Floppy Diskettes for 

ANY COMPUTER SYSTEM 



8 " Floppies only $3 

HU 

10 for $3.65 ea. • 50 for $3.40 ea 



20 

ea. 

HUNDRED LOTS 



We reserve the right to ship either of the name brands that we carry 
// 



5V4 Mini-floppies only $2 

HUNDRED 

10 for $3.10 ea • 50 for $2.85 ea 



60 

ea. 

HUNDRED LOTS 



SPECIFY SIZE, TYPE, & COMPUTER 

5'/< ' Soft Sector, 10 Sector. 16 Sector-— 8" IBM Compatible. Hard Sector 



CALL TOLL-FREE 24 HRS. TO ORDER 

800-824-7888 
OPERATOR 814 



m^ 



Schools and 
unlv«rsltf*s 



CALIFORNIA 800-852-7777 gianiy .ervicd C.O.D 



DC SOFTWARE & COMPUTER PRODUCTS 
POST OFFICE BOX 503 
SAN BRUNO, CALIF. 94066 

FOR INFORMATION 415-348-2387 



1^59 



TRS-80 



Reg Out Price 

• Level ll-t6K H44 0U 749 00 

• Enpansion Inlertace i'^tiM) 2M 00 



' Centronics Piinle's 
IVetbdtim Diskettes 



• Perlec Disk Dfives 

• TRS-80 Disk Drives 



794 OO S, up 
5 20ea 

J2 00 box of 10 
iB9 00 
449.00 



Business Software by 

• Robitron 

• Data Access Corp. 

• Newdos+ by Apparat 

SdvinRs an all Radio Shack TRS-BO 
hardware & software 

Radio /haeK 

dealer 5 



zGamersz 

Computer Center '^206 
675 fast Avenue 
Cedartown GA 30125 

404-746-3614 or 748-8585 

* 

TRS-aCl IS 1 traOerriarfc oMno fiaflio Sttack Division ol TinOt GorDoralior 



SOFTWARE AND 

HARDWARE FOR 

MODEL I COMPUTER 

DISK DRIVES 

HIGH-SPEED PRtNTERS 

MICRO-COMPUTER CASSETTES 

DISKETTES 

BUSINESS AND PERSONAL 

PROGRAMMING 

UTILITY PROGRAMS 

CUSTOM PROGRAMMING 

MODEL I COMPUTERS 

•CIRCLE READER SERVICE NUMBER* 
OB WRITE FOR BROCHURE 

COMPUTER GENERATED DATA 

700 Baker Road Suite 115 
Virginia Beach, Virginia 23462 
{804)497-1165 ^.^^ 




CREATE YOUR OWN PROGRAMS 

Custom programs are the best way to ensure 
that your computer does what you want. 

"Computer Programing for the Complete Idiot" 
simplifies programing by describing a format that 
shows how to organise BASIC inio meaningful 
programs that achieve specific tasks. A Payroll 
Program is used as an example. Detailed instruc- 
tions then show how to apply this process to 
creating original programs. 

This book features the TRS-80 and is an excel- 
lent guide for the beginner with many useful 
references for the advanced programer. 

ONLY $5.95 - 128 PAGES 

Please send me . copies of "Computer 

Programing for the Complete Idiot" at J5.95 each 
plus $1 00 for shipping. (California residents add 
sales tax of $0.3S per book.) 

I J Check or Money Order Enclosed. 

Charge to my: | i fVlasler Charge p Visa. 

Card No: Exp,: 

Name: ____^ 

Address; ___^ 

. Zip: 



DESIGN ENTERPRISES OF SAN FRANCISCO 
Dept. 803, P.O. Box 276/7 
San Francisco. CA, 94127 ^139 



^ Reader Service — see page 147 



80 Microcomputing, April 1980 • 105 



UTILITY 



Create a collection of your favorite utility 
programs and load them with a single command. 



Service Tape 



Howard Flatley 
232 Fiesta Lane 
El Calon, CA 92021 



Powering up the TRS-80 with- 
out a disk system in Level II 
must include a SYSTEM load of 
the keyboard debounce routine: 
Unless you enjoy repeating key 
inputs, that Is. 

This article enables you to cut 
that power-up time in half and to 
consolidate your SYSTEM pro- 



grams onto a single cassette. 
For those who are new to ma- 
chine language programming, 
as I am, a technique for loading 
more than one machine lan- 
guage program into reserved 
RAM will be given. 

The Service Tape 

While programming in BASIC, 
I gathered a couple of short 
utilities that I often found 
useful. When I desired access to 
machine language on the 
TRS-80, the need for utilities 



Name 


Source 


Provides 


Re maths 


KBFIX 


Radio Shack 


Keyboard debounce 


Machine language 


SRELO 


(2 on 1 Tape) 


& Relocation 


55 bytes, cures Level 11 
keyboard input bounce 
Price $2.99 


RENUW 


Radio Shack 


Renumber of 


Machine language 960 


(26-3004) 


cassette 


BASIC line S 


bytes, picks up 
GOTO, eOSUB. etc 
Price $9.95 


TBUG 


Radio Sliack 


Z-80 Monitor 


Machine language 2560 


(26-2001) 


cassette 


Level 11 


bytes, debugging aid 
Price $14,95 


"Universal 


Kilobaud 


Base (0 base 


BASIC, number base 


Number 


Microcomputing 


number 


conversion (2 to 16) 


Converter" 


Nov. 1978 


transfers 


See "Letters" Feb ^79 


■■MONITOR" 


Kilobaud 


TRS-BO Ass. 


BASIC, Hex memorv 




Microcomputing 


Lang. Oper. 


dump, etc. 




June 1979 


System 


See "Letters" Sept. '79 


■■Whip File 


(1)Kilobaud 


Program 


BASIC, combines BASIC 


Wipeouls" 


Microcomputing 


merge 


( CLOAD ) programs 




July 1979 


capability 


See "Lettefs ' Oct. '79 


"How to Merge 


(2)Radio Shack 


Same as 


Same as 


Programs 


Microcomputer 


(1) 


(1) 


Using CLOAD 


Newsletter 


above 


above 


Command" 


July 1979 






"Quick Print 


Radio Shack 


LPRINT CRT 


BASIC, vjhen exe- 


Your Video 


Microcomputer 


to Line 


cuted outputs CRT to 


Screen on the 


Nevjs letter 


Printer 


LP.; may be used 


Line Printer" 


July 1979 


(16 lines) 


torTRON statements 




Table 1. Programs and Routines 



grew. 

The SYSTEM and BASIC pro- 
grams that I use most often are 
listed in Table 1. 1 consider these 
programs as tools to accom- 
plish a job. While programming, 
I had several of these tools, on 
individual cassettes, lying about 
the keyboard. This led to prob- 
lems, including loading the 
wrong tool and losing time 
searching for the correct 
cassette. 

My solution was the TRS-80 
Service Tape, The tape is com- 
posed of all the programs listed 
in Table 1 in the order of priority 
shown. 

I use a Level II, 16K RAM 
TRS-80 and a CTR-41 tape re- 
corder. TRS-80 users with the 
same configuration may use the 
addresses as they appear. For 
other RAM sizes you will have to 
consult your program and com- 
puter documentation. 

Power up the TRS-80 and set 
MEMORY SIZE? to 31700, This 
reserves 1067 bytes in high 
RAM. Using the SYSTEM com- 
mand, toad RELO. Enter B under 
the RELO control commands. 
" + B 7FFF", appears on the 
CRT. 

Type 7C0B to change the end 
address of where KBFIX will be 
loaded. Enter S, and when "KB 
DEBOUNCE ROUTINE" ap- 
pears, enter L to load KBFIX. 
This procedure loads the de- 
bounce routine at addresses 
31701 to 31755. The tape re- 
corder must be kept in play dur- 
ing these steps. To exit RELO 
command mode enter E. 



Remove the debounce tape, 
insert the RENUM program and 
make any volume adjustments 
required. Set the recorder to. 
play and load RENUM. When the 
SYSTEM prompt (*?) appears 
following a successful load, 
press the BREAK key. RENUM 
and KBFIX are now resident in 
the reserved RAM of (he TRS-80. 

To create your Service Tape, 
you will need either T-BUG or 
"MONITOR" (see Table 1). I used 
T-BUG and will confine my de- 
scription to that method. 

Remove RENUM from the re- 
corder and insert and load 
T-BUG. 

Using the M and X T-BUG 
commands, check the following 
addresses: 

Hex Add. Hex Contents Remarks 



78D4 


03 


KBFIX start 


7C0C 


03 


KBFIX end 


7C4C 


31 


RENUM start 


7FC6 


20 


RENUM end 


4380 


ED 


T-BUG start 


497F 


44 


TBUG end 



If everything appears okay, 
you are all set to create your 
Service Tape. However, if things 
don't check out, perhaps the 
RAM location addresses will 
give you a clue to the error. 

Assuming you are ready to 
proceed, place a fresh 30-minute 
tape in the recorder. Set the 
counter to zero and prepare to 
RECORD. Using the T-BUG 
PUNCH (save) function, type in: 
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|#] P 7BD4 7C0B 7BD5 KBFIX (ENTER) 

This will rapidly record the de- 
bounce routine. 

Advance the tape (1 went to 
15) and set up to RECORD. The 
CRT will show •■# D5 

KBFIX" ' from your previous 
recording. As you enter your 
new statements these charac- 
ters will be overwritten and will 
not interfere with the new en- 
tries. Type in; 

(fl) P 7C4B 7FFF 7C4C BENUM (ENTER) 

Advance the tape again {you 
are keeping a record of counter 
positions, aren't you?) and set 
up to record T-BUG, Type in: 
RENUM will immediateiy begin 
to dump to the tape. When the 
dump is completed, "# 4C 

RENUM" will appear on the CRT. 

(«) P 4380 497F 4381 T-BUG (ENTER) 

T-BUG takes a little longer to 



'On some versions of T-BUG, Ihe only CRT 

display will be Ihe prompt (#) on completion 
o( recording. 



record. "# 80 T-BUG" ap- 

pears on completion. 

You now should have a SYS- 
TEM tape that replaces three 
tapes. Before we pack away the 
originals let's test the new Ser- 
vice Tape. Rewind the tape and 
reset the counter. 

Testing the Service Tape 

Set the recorder to play and 
make required volume adjust- 
ments. My TRS-80 normally re- 
cords at 6, but plays back at 
about 5 on the volume control. 

Shut off the TRS-80 and wait a 
minute. Power up and set MEM- 
ORY SIZE? to 31700. Enter the 
commands SYSTEM, then 
KBFIX. The debounce routine 
should load and the system 
prompt will appear. ENTER 
/31701 and READY appears. 

The debounce routine is resi- 
dent and patched to BASIC at 
this point. 

During some operations, 
such as a jump from T-BUG to 
BASIC, the patch may be bro- 
ken. To reinitiate the patch, 
enter SYSTEM, then/ 31701. 



Follow the same procedures 
as above and load RENUM. 
After a successful load, a 
SYSTEM prompt will appear. 
Press the BREAK key to return 
to BASIC. 

CLOAD a short BASIC pro- 
gram. Enter SYSTEM, then / 
31820 to call the renumber 
routine. Use RENUM to re- 
number the BASIC program and 
to check out performance. 
When satisfied that all is well, 
enter NEW. 

The KBFIX program, with 
patch to BASIC, and the RENUM 
program will not be affected by 
the NEW command. 

Using the SYSTEM com- 
mands, load T-BUG. Following a 
successful load, answer the 
system prompt with / ENTER. 
The left of the CRT should clear, 
and the T-BUG prompt(#) will ap- 
pear. You can use T-BUG to 
recheck the memory addresses 
and insure that all is as it should 
be. 

Completing the Service Tape 

The recorder counter should 



now be indicating the count for 
the end of T-BUG and the SYS- 
TEM portion of your tape. On a 
30 minute cassette there should 
be more than half the tape re- 
maining for your BASIC pro- 
grams. 

Continue to advance the tape 
(10 to 15 counts) between pro- 
grams, and add your BASIC rou- 
tines to the Service Tape. I used 
the TRS-80 CLOAD command to 
get the routines into the com- 
puter and then used CSAVE to 
add them to the tape. 

While RENUM is in the 
TRS-80, you may wish to change 
the line numbers of your routine 
to high numbers (20 000). This 
will allow you to CLOAD and 
merge your routines with other 
BASIC programs having lower 
line numbers. 

You may also wish to make a 
list of program names, counter 
positions and SYSTEM entry 
points on your tape. Keep your 
list close to the TRS-80, as it will 
come in handy when your mind 
is preoccupied with other mat- 
ters. ■ 



Disk Baseci 
Word 

Processor 
Sy.SD 



A complete word processing system 
for your TRS-80 Including full editing 
features such as paragraph move, line 
detetlon. Insertion L line correction. 
Store text on disk, print business 
and personal letters, reports with 
numbered pages and title pages! Text 
stored on disk as blocks ore created 
so texts are not limited by the avail- 
able memory. The PENSA-WRITE word pro- 
cessor is for 16K single-drive TRS-SOs 
and comes complete with software to 
produce upper/lower case at prlnthead, 
and keyboard reverse. Ful I right/left 
justification and much more. Send 
cheque, money order or order by phone, 
24 hours, 7 days a week. Mastercharge 
and Visa welccme. Manual only, 11.75- 
deductible frorm cost of software. 

ORDER NOW! ! 



Pemsadyme 

COMPUTER SEftV;CES 

444} V^ESl FtRST AVE. 
VANCOUVER, B.C., V6R4H9 

604-224-3107 



,^207 



Try a Really Different Kind of Software 
for Your TRS 80, PET or APPLE ! 




Cross swords with a band of dastardly 
robbers in their mountain iaJr in the 
Datestones of R\jn. You explore the 
caverns shown on vour video display and 
vanquish the monsters in real time. Vou 
have just 20 minutes to recover the pre- 
cious Datestones before time itself stops. 

Monsters — Melees — Magic I 

The Datestones of Ryn introduces vox 
to the superlative DUNJONQUEST game 
system. Other games in the series may pit 
you against an evil wizard or the frightful 
insectoid monsters of the god Apshai. In 
the Datestones your main opponents are 
human, but look out for other nasty critters 
lurking in the darkness. You have 14 different 
commands ranging from moving (as fast or 
as slow as you like so long as you don't tire 
yourself out) to searching the walls for 
secret doors. 

For just $14.95 you get the Datestones of 
Ryn on cassette ready to play, and a superbly 
illustrated booklet that tells you all about the 
game. Please specify the version you want — 
TRS-80 (Level II, 16K), PET (16K old or new 
ROMS), or APPLE (32K Applesoft). 

Ask yQxiY dealer or send today to: 

AUTOMATED 
SIMULATIONS 

Dept, R7 
P.O. Box 4232 
Mountain View, Ca. 94040 
California residents please add 6% sales tax. 




^ Reader Service — see page 147 



80 Microcomputing, April 1980 • 107 



UTILITY 



Need to use the memory occupied by KBFIX? 
Move it out of ttie way witii ttiis BASIC Program, 



KBFIX Fix 



CW. Andreasen 

P.O. Box 8306 

Van Nuys, CA 91409 



About six months ago I was 
bitten by the home com- 
puter bug and brought home a 
TRS-80. Now, I am very happy 
with my computer, even if it 
does have one shortcoming: 
key bounce. 

Keybounce occurs when you 
type a letter once and find two or 



three on the screen. This is very 
troublesome when you type 
LIST and get LLIST, because the 
system hangs up for lack of a 
printer. 

When I bought my Level II 
machine, the software fix 
(KBFIX) was not available. 
Luckily I found someone who 
had both the KBFIX and a dis- 
assembler. He sent me a listing 
so that I could key in and make 
my own tape through TBUG. 

The End of the Story 

This might seem like the end 



of the story, but two things hap- 
pened. First I became depen- 
dent on the KBFIX routine, be- 
cause ! never cleaned the con- 
tacts on my keyboard, aggra- 
vating my keybounce. And se- 
condly, I couldn't get to the 
RENUM routine. 

RENUM and KBFIX are load- 
ed in the same spot in memory, 
and you must use one or the 
other — not both. 

After developing a fix for my- 
self and finding that others 
shared this problem, I decided 
to share what I've learned about 



10 CLS 

£0 PRINT "BEFORE RUNNING PROGRfltl DID VOU ENTER THE" 

30 INPUT"NEW STRRTING LOCATION flS VOUR MEMORV SIZE"; C* 

40 C*=LEFT*<C*. 1? : IF C*="V" THEN 60 

50 CLS: PRINT "VOU MUST TURN OFF POWER TO THE COMPUTER RND STRRT RGflIN 

60 CLS: INPUT"WHRT IS THE HEW STRRTING RDDRESS. IN DECIMRL"; S : SH=S 

78 CLS, INPUT"WHRT'S THE STRRTING POINT OF VOUR OLD KBFIX"; SP : PRINT 

Se CLS. PRINT: INPUT"DO VOU WRNT LISTING RT END <.V OR N>";V* 

90 CLS 

100 FOR L=SP TO SP-i-54 

110 POKEcS:), PEEKED 

120 S=S-H 

130 NEXT L 

140 GOSUB £20 

150 P0KEf:SR-i-37^. NN : P0KE(SR-t-38:J.. NM 

160 IF V*="N" THEN CLSiGOTO 210 

170 FOR X=Sfl TO SR-t-54 

1S0 PRINT XiPEEKCX>.J 

139 NEXT X 

200 BS=INKEV*.IF B*="" THEN 200 

210 PRINT. PRINT "TVPE /"; SR; " RND PUSH ENTER" ■ SVSTEM 

220 NN=0:Nf1=0: 0=32768 :P=12S:N=SR-t-25 

238 IF N-Q>=0 THEN NM=Hri-»-P : N=N-~-C! 

240 Q=Q/2:P=P/2 

250 IF P>. 5 THEN 230 

260 P=^128 

270 IF N-Q>=0 THEN NN=NN+P : N=N-Q 

280 Q=Q/2:P=P/2 

290 IF P> 5 THEN 270 

200 RETURN 



END 



Program Listing: KBFIX. 



relocating KBFIX. 

This program is written in 
BASIC and allows the user to 
load in the machine language 
KBFIX program and relocate it 
to any place in memory desired. 
If you have TBUG, you can 
PUNCH out a new tape contain- 
ing the relocated KBFIX as well 
as the other routine you want to 
run. 

First determine where you 
want KBFIX to be located in 
memory. The instructions that 
come with your program tell you 
what to enter for memory size 
upon power-up. Take this num- 
ber and subtract 54 from it. This 
is the new MEMORY SIZE you 
must enter to allow room for the 
relocated KBFIX directly below 
the other program, such as 
RENUM. 

With RENUM a Level II 16K 
machine would read: MEM SIZE 
31819. To run the program sub- 
tract 54, giving 31 765 for the new 
MEM SIZE. 

Load in, via SYSTEM, the nor- 
mal KBFIX routine, which starts 
at 32713 (in the 16K machine). 
Execute it and load this reloca- 
tion program. Type RUN. 

The program asks you, 
"WHAT'S THE OLD STARTING 
LOCATION?", and you enter 
32713. Then it asks, "WHAT'S 
THE NEW STARTING LOCA- 
TION?", and you enter 31765. 

If you want a listing, type Y at 
the program prompt, and it 
prints a listing containing the 
memory locations and the 
decimal byte in each to the 
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screen. 

The program, starting at line 
100 and ending at line 130, 
peeks at each memory location 
where KBFIX is located and 
pokes it with no changes into 
the new locations. 

How the Program Works 

As it turns out, only one in- 
struction needs modification 
before the routine is able to run- 
There is one jump instruction 
that is not relative, and the two 
bytes giving the jump to address 
must be changed to reflect the 



new location. 

The subroutine starting al line 
220 does this. 

The subroutine figures the 
memory address of the 25th lo- 
cation, breaks that address 
down into two 8-bit words and 
assigns a decimal value to each 
8-bit group. These two decimal 
bytes represent the upper and 
lower bytes of the new address 
that is to be jumped to, and this 
value is poked (at line 150) into 
the appropriate locations in the 
three byte jump instruction. 

One interesting thing about 



this jump instruction is that it is 
a JP P, nnnn. You will JUMP if 
the value is (flag) positive. 

Perhaps you know a way to 
make this a relative jump. If it 
were relative, then the KBFIX 
program could be loaded direct- 
ly into any location in memory 
without modification. 

Line 160 makes the decision 
to print a listing or not. If NO is 
entered, the program goes di- 
rectly to line 210 and prints 
•TYPE/(nnnn) and push ENTER". 
Variable (nnnn) is the decimal 
number to enter the KBFIX 



routine. 

The computer goes into SYS- 
TEM and waits for you to type in 
the requested number. When 
the number is typed in and 
ENTER is pushed, you get 
"READY" on the screen, and the 
new KBFIX is active. 

At this time you can input 
your RENUM or any other de- 
sired machine level routine and 
have KBFIX at the same time. 
You can, of course, type "NEW", 
get rid of the relocator program 
and use your TRS-80 as nor- 
mal. ■ 



CENSUS CHECKER 



The Census Checker system is a set of programs 
designed to check Ihe accuracy ot the 1980 cen- 
sus. The census will providethe population counts 
that will be used by ail levels of government lor the 
next ten years, if they are inaccurate and omit peo- 
ple, then your city or county will suffer. Revenue 
sharing, federal and state grants and future plan- 
ning depend upon an accurate census. Census 
Checker can help. 

Ttie Census Checker Is designed for the Radio 
Shack TRS-80 microcomputer and may be used on 
any other BASIC micro with BASIC and disk files. 
Small cities and counties will benefit most from 
the use of this system The programs are straight 
forward and may be modified for special local 
problems. 

For further information write: 

MICRO DECISION SYSTEMS 

3008 Redwood Ave. 
Lakeland FL 33803 ,^ 186 

other government and census related micro soft- 
ware in development. 



For Canadian 
* Owners 



Lower Case Modification . . S65.00 
Cassette Load Modification . $20,00 
Radio Shack Numeric Keyboard 

Installation $50.00 

{You supply numeric pad) 

RS232C Serial 1/0 Port for Printer 
etc. (Complete with connectors) 
For Use With or Without Expansion 
Box $169.95 

For a complete catalog and credit 
vouchers worth $25.00 on future 
purchases send $5.00 to: 

'AK Quotas in Canadian Funds 

ORTHON cwfHE" 



.^if 



12411 stony Plain Rd., 
Edmonton, Alfa, T5N 3N3 



TRS-80 users 

Learn FORTH 

FORTH IS a .ymclured high level language thai drumatifdlly 
cuts program developmcnl lime. You can expand the 
FORTH language by defining new operations and datatypes. 
FORTH priigtams are compiled to reduce memory space and 
speed e\ecution. 

tinyt'ORTH is a complete version ol the powerful FORTH 
language tailored to the TRS-iiO. The tinyFORTtI system 
incluiies FORTH, a lest editor, an assembler, graphics, and 
cassette I/O. 

Learn FORTH on your own computer Hie tinyFORTH 
user's manual contains hundreds of examples lo leach you 
f-OR"[ll m J hands-on style. 
tinyFORTH for 16k level II TRS-81): 

Cassette and full documentation S24 'W 

Uoeumontation only $"5 95 

All orders are fully guaranteed And $ I 50 for postage and 
handling. Order with check, money order, Visa, or 
Mastercharge 

Write lor a FRHK booklet describini; lUKTH 



The Software Farm ^ io9 

DepI, A18 Keston, VA 22090 



TRS-80^ 

EXCHANGE 



,^219 



Sove on u^ed IRS" 80 hordware 
and periphercils We buy and sell 
TRS-80 Level I's nndll's, inter- 
laces, d isks, and printers A limired 
warranlee on this equipment is also 
available 

We olso buy ond sell used, origi- 
nal ond complete Radio Shack^ disk 

software pockages 

Keg Tradmark* 

FOR A QUICK RESPONSE 
I CALL 203-669-0726 > 



OUSINESS SOFTWARE 

CP/M ond MODEL II COMPATIBLE 

NEWLY ENHANCED VERSIONS 

Motlical Mginl System $49,i 

Drntal Mgmt System $495 

lifal E.statf Multi-list *49o 

liiMirunce Agency Mgmt $495 

Legal Time ActountiriK $49,i 

t-jfjiiojal Ledger $49o 

Aecoiints Payable $49.i 

Accouiils Receivable $49.5 

['ayrolj Processing If49."i 

Inventory Manajjjment $49.) 

Word Pro(.f.%ing/Nad $495 

Dalaba-se Management $19.) 

High-Speed Utility Sort $30(1 

NEW! Lali-st CBASiC-2 $ 9i! 

NEW1 Latest MBASIC ,^), 1 $3IKI 

NEWl MBASIC Compiler $:i,'')0 

■"Cr/M2,0for modem $170 

<:om]iiflfSi)ftwar.'C:alalog $ 5 

Complete Hardware (iuide $ 5 

UNIVAIft. INC. 014-426-iO99 

lll.i27 !.ai:ih<Tt lull Airpiirl ^^234 

.S'(. I.i:i.is. ,Wiv.v(,nr( (>3I45 USA 
Mafrlcrchmnf/ViAii Catik O.K. 




EDUCATIONAL SOFTWARE] 

Level II— Min 4K 
JALPHA For ages 4-7 — teaches 
alphabet recognition; 
Reinforcement^a "happy"| 
face 
^SIGMA For Grades 1-3 — A random 
series of one-digit additions 
problems (i.e. 4 + 5 = 9) 
Reinforcement^r*u5h the 
puck through the goal 
Simple to use — No depressing the ENTER| 
key 

Eacli $5.95— Both for $10.00 



y' Reader Service— see page 147 
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HARDWARE 



If you have a lemon — make lemonade! 
How to improve your old CTR-41 recorder 



CTR 41 Modifications 



Delmer D. Hinrichs 
2116 S.E. 377th Ave. 
Washougal WA 98671 



Do you get tired of plugging 
and unplugging the remote 
cord to your cassette recorder? 

Do you have trouble finding a 
program on a cassette after 
you've saved it? When you've 
found it, do you have trouble 
loading it? 

When you've loaded it, do you 
forget to turn off the recorder, 
and get dips in your recorder's 
pinch roller? 

If you have any of these prob- 
lems, read on— they are easily 
fixed. 

While there are several cas- 
sette control boxes available 
that w/ill solve some or all of 
these recorder problems, they 
add to the clutter of wires and 

Parts List 



1 ■ Subminialure SPST slide swJIch 

BS#275-406 2/. 59 

1 ■ Subminiature LED (1/8" dia.) 

RS#276-042 2;69 

1 - 220 ohm. y? watt resistor at Radio 

Shack 2/.19 

1 ■ 22 ohm, '/? matt resistor at Radio 

Shack 2/. 19 

Bosin core solder 

Insulated hook-up wire 

"Super Glue" 

Phillips screwdriver isiTiall, tor #2 

screws) 

Soldering iron 

Sharp knife 

Electric drill and bits 

Square file jftiiialli 



units on your desk. Besides, it is 
much less expensive to fix the 
recorder itself. 

Very little is required to fix 
your recorder. The materials and 
tools needed are listed in the 
Parts List. The materials come in 
packs of tvt/o each (if purchased 
from Radio Shack), so that tvi/o 
recorders can be fixed for the 
price of one, about $.83. 

If you have never worked with 
PC (printed circuit) boards, tran- 
sistors or digital circuits, don't 
give up. Before I made these 
modifications to my CTR-41 cas- 
sette recorder, neither had I. 

Manual Control 

Disconnect the CTR-41 from 
all cords and place it on its face 
on a soft surface, perhaps a 
towel on the desk. Remove the 
five Phillips screws holding the 
back of the recorder. (Three 
screws are on the back and two 
are at the bottom of the battery 
compartment. Note that the bat- 
tery compartment screws have 
a coarser thread.) Then gently 
lift the back and disengage it 
from the hi-low tone switch and 
the volume control. Did you re- 
member to remove the dummy 
mic plug? When the back has 
been removed, the handle is 
free. The recorder will now look 
like Photo 1, except that it has 
not yet been modified. 

Let's fix the recorder control 
problem first, so that we can 
manually control the recorder 
while the remote plug is in its 
jack. To make the electrical con- 
nections shown in Fig. 1, attach 
a SPST (single pole, single 
throw) switch across the two ter- 



minals of the remote jack. 

If the recorder is upside down 
with the keys towards you, near 
the upper right corner of the PC 
board there is an oval hole (see 
Photo 1 and Fig. 2). Near this 
hole is a solder terminal with a 
yellow wire attached and one 
without. Attach the manual 
switch to these terminals and to 
an LED (light emitting diode) 
and its current-limiting resistor. 

Be sure that the LED is at- 
tached with the proper polarity 
or It won't light up. 

To attach the switch to the re- 
corder's case, drill three holes in 
the case, as shown in Photo 2. 




Fig. 1. Electrical connections for 
the manual switch and for the 
LED signal light. 



File the larger center hole into a 
rectangular shape to accom- 
modate the movement of the 
sliding switch. The two smaller 
outer holes are for the switch 
screws. Drill another hole for the 
LED near the switch in the re- 
corder case. 

Now we can solder the switch 
and the LED to the two terminals 
using short lengths of hook-up 
wire. It works best to solder the 
wires to the switch, install it and 
then solder the other ends of the 
wires to the terminals. Be sure 
that there is room to install the 
switch (I had to remove some ad- 
ditional plastic material from 
flanges inside the case). The 
LED may be secured in its hole 
with a drop of one of the "super 
glues." 

The remote plug can now be 
left in its jack. In one position 
(closed), the switch allows nor- 
mal manual control of the cas- 
sette recorder; in the other posi- 
tion (open), the computer has 




SWITCH AND LEO 



Fig. 2. Upper right corner of the recorder's PC board, showing con- 
nection points and the ground trace cut. 
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TUSBOUSCftS ^irOlP!!!r 

WEVE DONE IT AGAIN! MORE QUALITY ACCESSORIES 
STARTING WITH TSHORTA- ! LVII & DOS SUPER SHORTHAND. 



WEB'S FAMOUS TSHORT™ EXPANDS! 



SAVE MORE TIME 



THAN EVER... 
TYPING PROGRAMS 
WITH TSHORT+ I 

Look at these new Features: 

• NOWi 41 preprogtammed LV II and DOS 
statement keys 

• NOWI 1) "SAVEABLE" KUSTOM keys Ten 
10-characlef and one 64-characler 

• NOWI Includes aulomatic keyboard 
DEBOUNCE 

• NOWI RELOCATABLE Less than 1 K byles of 
machine language in low or high memory 

• NOWI Available on tormatted DISKETTES for 
2 or more drives. Comes on cassette tor LV II 
and single disk drives 

• Hold -SHIFT" or XLEAR" and press de- 
sired key — entire statement is typed on 




TRS-80 Keyboard wilh deca/s imialied 

screen. Installed "CRTL" key can substitute 
for "SHIFT" 

Complete decal set (see picture) included for 
both LV II and DOS systems 
Features self-entering commands, i e 
CONT. GOTOIO; KUSTOM 
Automatic Close Paren ■)" may be pro- 
grammed in KUSTOM 



TSHOBT+ cassette 

w/ instruction manual . 

TSHORT+ formatted 
DISK version t manual 



$ 19.95 
S 24.95 





TSEL" 

We'll convert YOUR IBM Selectric I or II to a 
high quality letter printer, totally compatible 
with your TRS-60. 

• ^p control — 512 character butter. 

• Special TRS-80 cable with custom ■'Pause . 
■Reset" switches Our optional '"'i ' cable 
allows It to be plugged m with other printers 

• A superior word processing system 

• Compatible with Electric PencJI^'^or Radio 
Shack's Scripsil™ Patches or modifications 
not required 

• Completely tested and ready lo LPRINT 
TSEL (cleaning and minor 

service included) $795.00 

(Options and shipping extra — call or write for 
special shipping instructions) 




TBEEP 1 ""I 

For Level II and Disk Users — A self 
contained audio alert boepei with a pager-liKc 
lone Plugs in-lme with ■■AUX' cable from your 
TRS-80 ^Requires 9V Battery) $ 19.95 



TMEM 

Now, the best of both worlds! A battery sup- 
ported memory giving you READ/WRITE 
capability with ROM security! 

• Use tor retaining important totals/variables, 
utility /system software (i e TSHORT. TLEC), 
development programs, monitors, etc 

• User programmable Write enable switch * 
OUT statement ensures memory security. 

• External plug-tn module. Available in either 
IK or 2K. 

• Retains memory contents on power down or 
failure for 2 weeks or more. Buill-in Batteries 
recharge automatically 

• Instant access lo memory contents upon 
power up 

• Uses unassigned area of memory No 
conflicts with other operating software 

• Compatible with either LVII or DiskOperalmg 
System. (Special cable required for LV II) 
TMEM w/IK $124.95 



TMFM W/2K 



$174.95 






i S. % ff/ 



TPAK"^ 

The best cassette tapes money can buy — 

AGFA 61 1 We use them tor our production 
software, such as TSHORT™ Pack of 1 C-1 
blank tape cassettes, boxes, and blank labels 
$ 12.95 



TBEEP 2'" 

A TBEEP kit you install inside your TRS-80 

keyboard. 

• Completely assembled and tested 

• Attach to keyboard's PC board with double- 
sided foar-n tape (included) and solder three 
wires lo easily located points on keyboard 
unit Installs in minutes 

• Uses power from your TRS-80 No battery 
required 

• DEALERS! Install when modifying your cus- 
tomer's TRS-80, and include TBEEP's simple 
four word BASIC command in your off the 
shelf Software 

TBEEP 2 Kit (with complete 

instructions) S 12.95 



tbase^Vtchain ""' 

2 powerful winners comi;"ig up Watch our ads 
for release 




TLEC™ 

Kit interlaces your IBM Electronic 50/60 to 
your TRS-80 

• Kit includes Cable with Custom control 
switches tor "'Pause' and "Reset" and 
cassette with operating Software 

• installs in mmules Plug it in no wire to cul 
or solder Does not disturb IBM warranty 

• Needs no modifications or patches lo popular 
word processing software 

• Requires either IK TMEM or 2K TMEM Load 
only once and forget it 

TLEC w/IK ■■TMEM"(with complete 

instructions: S239.95 

TLEC W/2K "TMEM ' (with complete 
instructions! . . . : S289.95 



TBUFf ''-'— OLD FAITHFULL 

Slop your cassette when it should with our 
TBUFF cassette interface buffer 



(Specify recorder make & model 



5 9.95 



Telephone Orders: 
(714) 559-6249 



PLEASE NOTE All WEB Associates producis P 
are designed lo work with Level II and Disk 
Operating Systems unless specified otherwise. 



Send Check or Money Or6er to: 

WEB ASSOCIATES ^27 

.0. Box 60 QD, Monrovia, CA 9101 
(California Residents add 6% tax) 



6 



DEALER INQUIRIES INVITED 

UPS/CO, D — ADD $3.00 

FOREIGN ORDERS: 
Add 20% ($10 maximum) 



(^ Reader Service — see page 147 
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Photo 1. Modified CTR-41 cas- 
sette recorder with the back re- 
moved. 

a. Manual switch and LED 
connection points. 

b. Speaker resistor. 

c. Ground loop jumper 

d. Tone switch (optionai 
manual switch). 

control. The LED will light up 
when the switch is in the com- 
puter control position and dur- 
ing play or record. The LED sig- 
nals when the recorder is ready 
for computer control and when a 
computer-controlled operation 
has been completed. After a 
completed operation, the re- 
corder should be turned off with 
the stop key to avoid pressing 
dips into the pinch roller. 




Fig. 3. Lower left corner of the 
recorder's PC board, showing 
trace cutting and the connec- 
tion points for optionai use of 
the tone control switch as the 
manual switch. 



If you prefer, a manual control 
switch can be installed without 
cutting into the recorder's case; 
Just use the hi-low tone control 



switch. Since this switch is not 
used when recording or playing 
programs or data, it may be dis- 
connected and used as a 
manual switch. At the lower left 
corner of the recorder's PC 
board, just above the tone 
switch, are the two adjacent 
solder terminals of this switch 
(see Photo 1 and Fig. 3). 

Cut the two PC board traces 
to this switch with a sharp knife, 
then solder hook-up wire from 
the switch terminals to the two 
terminals for the rennote jack (by 
the oval hole in the PC board). In 
hi we now have computer con- 
trol, and in low, manual control. 

Sound 

Now that we have full manual 
control of the recorder's tape 
movement, how do we find the 
program or data that we want? If 
we zero both the tape counter 
and the tape cassette before 
starting, the counter's reading 
will give an approximate loca- 
tion for the start of a program or 
data set. However the counter 
does not give an exact location 
on the tape, and if we start 
reading from the tape a little too 
early or a little too late, we may 
not be able to read from the tape 
at all. 

Missing the recorded leader 
to the program, or starting to 
read before the end of the pre- 
vious program will cause read 
failure. 

How can we tell exactly where 
we are on the tape? By listening! 
Inserting the ear plug normally 
turns off the speaker. Bypassing 
this built-in switch allows us to 
hear the data as it is being read. 
By listening to the tape in 
manual play mode, we can tell 
exactly where the program or 
data that we want begins. In ad- 
dition, by listening to the tape as 
It is being read by the computer, 
we can tell if the volume level 
has been set too high or too low 
and adjust it accordingly (differ- 
ent brands of tape require a dif- 
ferent volume setting). 

Listening to the tape as it is 
being read also allows us to de- 
tect excessive hum, mushiness, 
dropouts, etc., that sometimes 
cause read or verify failures. 

Connecting a resistor as 
shown in Fig. 4 allows us to hear 



all programs or data being read 
by the recorder, or being re- 
corded. Though 1 used a 22 ohm 
resistor, you may wish to use a 
larger resistor, say 47 ohm or 
100 ohm, so that the sound of 
the data transfers isn't so loud. 
A resistor is necessary to avoid 
diverting too much energy to the 
speaker and not enough for the 
computer or the recording head. 



Fig. 4. Electrical connections for 
the ground loop jumper and for 
the speaker resistor. 



This resistor is soldered be- 
tween two terminals on the 
recorder's PC board as shown in 
Photo 1 and Fig. 2. Be sure that 
the resistor leads do not touch 
any other solder terminals and 
that the resistor is pressed 
close to the PC board so that the 
back of the recorder's case will 
still go on. 

Listening to the tape also 
enables us to record an audio 
title or description prior to any 
program or set of data. Remove 
the dummy plug in the mic jack, 
put the recorder in manual 
record mode, and speak into the 
built-in microphone. 

Having the speaker and the 
microphone active at the same 
time (due to the added speaker 
resistor) may cause some feed- 
back or ringing, but it is usually 



not serious. Take care that the 
computer does not read one of 
these audio recordings or it will 
become confused. 

Ground Loop 

Now that we hear the pro- 
grams or data being read by the 
computer, the excessive hum of 
the ground loop problem be- 
comes noticeable. The ground 
loop occurs because the CTR-41 
was never Intended to have both 
auxiliary and ear jacks plugged 
in at the same time. Each is 
grounded at different places in 
the circuit. With two different 
ground circuits and an AC (alter- 
nating current) power supply, it 
Is easy for the two grounds to 
have a small AC voltage be- 
tween them. The result Is 60 hertz 
hum. This hum is added to the 
signal before it is recorded on 
the tape, and is added again as 
it is read from the tape. Is it any 
wonderthat we sometimes have 
trouble correctly reading pro- 
grams or data from tape? 

The solution is simple, as 
shown in Photo 1 and Fig. 4: Cut 
the recorder's PC board ground 
trace to the auxiliary jack and 
connect its ground directly to 
the ear jack's ground with a 
jumper wire. This jumper is 
located on the right edge of the 
PC board, directly over the aux- 
iliary and ear jacks, as shown in 
Photos 1 and 2, and in Fig. 2. 
This completes the modifica- 
tions. 

Conclusion 

Now, reassemble the re- 
corder. Place the handle in posi- 
tion (sharp edge towards the 
front of the case), gently posi- 
tion the back of the case over 




Photo 2. Side view of the modified CTR-41, showing manual switch 
and LED. 
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the tone and volume controls, 
and replace the five Phillips 
screws (coarse-threaded in the 
battery compartment). The only 
visible changes are the switch 
and the LED (Photo 3). However 
the system is now much easier 
and more pleasant to use. 

Recent TRS-80's have been 
delivered with a CTR-80 cas- 
sette recorder instead of the 
CTR-41 discussed here. The 
CTR-80 allows fast forward and 
rewind without unplugging, and 
I understand that it has the 
ground loop problem fixed. To 



find the start of a program, or to 
start recording at a specified 
counter number it would still re- 
quire installation of a switch to 
allow manual control of play and 
record. 

Also, the manual record Is 
needed for audio messages or 
to blank out the remaining bits 
and pieces of previously re- 
corded programs or data. If left 
on the tape these can cause 
reading problems. The CTR-80 
should also require the added 
resistor to allow listening to the 
data flow/.B 




Photo 3. Modified CTR-41 in use. 



» BlJSL\'ESS/AcCOrXTI\G 

^ Software 

Flexible clieni »riic-iip/ general ledger sjslem designed by 
a CPA and developed by a computer spei;jaliii for CPA's, 
aceountanu and general busineismen provides large-si;ale 
compiiler features al miero-ramputer ioflware tosls: 

* detigned ]or use by present employees 
' allows for up In 500 accounIS 

* depurtnienlal Jinanciiil sla/enienis including 
budgets 

' remim ilandard journal entries 

' aiitomalk balancing of liamaclions 

* fail entry ^ posting i>] rranniilioni 

* easy la follow audit trail 

' conventional accounting synihols uied 

For y-program pai;kagc t>ii diskelle with user manual 
send $495 lo: 

T\SK <*«HI'l TEH Al'PLICATI«.\S 

Dayton, Ohio PO Box 24001 
45424 

(513)233-2118 '^''' 



$ 



CQIHPuCDUEn 




COVER YOUR INVESTMENT 



' Clolh Backed Naugahyda 
■ imErQved Reliatiiiily 
' Lunger Life 



■ WararprQO( & Duitprool 
• T (ires Decorator Colors 

SadOle Tan • Eleclra Blua ■ BISOK 



Ssnd theckQf monoy ortJsrIQ' 
Intldile 11 NlDipgiljgsindnjiidling 

QvBrssajorasr$ include £3 DCposl^ge- 
DEALEFllNQUmESINUiTED 



CatffuGnuEh- '^'^°° 

P Bo. 3J4 (Dept Cl 
Marv E;lher FL 32569 
Pnoiic- i?6i| ;13 5793 , 
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5 COMPLETE STORES IN ONE! 

COMPUTER CENTER 



features a complete line of 

SOFTWARE 
and BOOKS 

for the 

TRS-80 

write for information 



31 EAST 31st STREET 
NEW YORK, N.Y.10016 
(212)889-8130 



I MAXELL® 

p OR SCOTCH* BRAND DISKS q 

P ^ * 

I, Some compulerisls pay less but may not gel j 

E Sliuggart" or IBM^"'' approved disks. /^ 

T 8" SINGLE SIDE -DOUBLE DENSITY Q 

R Box of 10 FOR $50.00 E 

* 8" DOUBLE SIDE -DOUBLE DENSITY " 

~ Sox of 10 FOR $65.00 ^ 

5y4"MINI — Box of 10 FOR $40.00 a 

' rfvajk DYSAN® DISKS VISA ' 

° **'^ ****** ^— — * 

^ 5V." Mini ■ Box of 5 for $25.00 [jj^^^ ^ 

^******** Q^^^ - 

A COD $1.00 Additional — Specify (8" - m 

H Soft or Hard Sector) (5"-Sofl or Hard Sector) ^ 

? CUSTOM ^.2 ; 

i ELECTRONICS INC. " 

T 238 EXCHANGE STREET 

A CHICOPEE, MASS. 01013 P 

R EST. I960 1—413—592-4761 j 

1 HOURS: Tues. to Sat. — 9 to 5 

■ ATARI* • •TII99-4*MATELL< 



TRS-80 



SPEEDUP BOARD 
REVERSE VIDEO 

SPEED MOD - You don't have to spend S3,500 on a THS-80 
Modai li to ael taster computing. Now you can speedup your 
Leva! <l TRS-GD - Disk systems included I - by up to 100% 
|5D% guaranteed) witti our speedup board. The result is more 
animated graphics, shortBr program run timas, and generally 
tar greater computing power for your dollar. Change between 
normal and faster aperatlon by using a simple BASIC statement. 
The contents o\ memory are not aflected by speed changes and 
a switch is not required {a switch may be installed if manual 
speed select Is desired). Changes are provided for NEWDDS. 
DOS 2.Z, and DOS 2.3 that allow disk systems to run reliably 
at both the normal and acceterated rate. Buy the most versatile, 
easiest lo Install, and most publicly recognized speed mod 
on the market today. 

A SSEMBLED & TESTED $24. 95 

REVERSE VIDEO is finally here! II you're tired of going blurry- 
eyed looking al your video display, then you are ready lor 
reverse video. It provides dark black characters and graphics 
on an all white screen tor a much crisper and much easier to 
read presentation. Change between normal and reverse by 
simultaneously pressing a combination of three keys on the 
keyboard. 

ASSEMBLED $14.95 

AddS% for postage and handling 
Calitomia residents add 6% safes tax 

BUI Archbold Electronics 

DeplSO • P.O. Box 7123 • Sacramento, CA 95326 
(916) 36Z-3627 
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APPLICATION 



Use your 16K Level II to keep track of 

up to 300 articles In your magazine collection. 



Magazine Index 



William Klungle 
1820 W. Lakewood 
Holland Ml 49423 



Terrific! Now that I have final- 
ly saved enough money to 
add a printer to my system, I 
can't find the Microcomputing 
articles on printer evaluations. It 
seems as though I just read one 
of them last week. Now what Is- 
sue was that in? 

After several such search ses- 
sions of looking through back 
issues of magazines for in- 
formation which I only vaguely 
remembered, I realized my com- 
puter's was made for this job. 

At last, a chance to prove to 
my wife that this computer sys- 
tem is not just an expensive toy, 
but a useful household appli- 
ance! 

The following program han- 



dles up to 300 files at a time. It 
creates, corrects, lists, stores 
and most importantly, SEARCH- 
es the file for the information re- 
quested. The program requires a 
TRS-80 Level II computer with 
16K memory and a recorder. 

The listing reproduced here 
has been typed with spaces be- 
tween the statements for clarity. 
When entering the program, 
remove all spaces from between 
the statements or there will not 
be enough memory available to 
run the program. 

Subroutines 

Before describing its opera- 
tion, some program subroutines 
should be explained. 

Subroutine 480 is used in sev- 
eral sections to print a for- 
matted data record onto the dis- 
play screen. 

Subroutine 490 is the list print- 
ing header, used to clear the 
screen, set the line counter (L) 
and format the screen for the 
print list. 

Subroutine 1000 is used by 
the entry section to position the 
cursor at particular locations on 
the display. This routine retains 
the screen printing format in 
spite of errors or corrections. 
Statement CHR$(28) will return 



the cursor to posilion 0-0 {upper 
left corner) of the screen. The 
cursor position (P) is supplied by 
the program before this subrou- 
tine is called. Statement 
CHR$(26) provides one line feed 
for each execution of do-loop 
"I". 

Subroutine 1100 provides a 
warning indicator of entry errors 
by printing ' ERROR • at the far 
right of the line in error. This 



subroutine is called by the error 
checking located after each en- 
try line of the program. 

Subroutine 1200 is a print for- 
matting routine used by the Cor- 
rection section of the program 
to print the current record data 
in the proper screen position be- 
fore the entry section makes 
corrections. 

Subroutine 1300 is used by 
both title and subject Search 



Program Listing 



= RE 
PGIN 



1 REM! MAGAZINE INDEX PROGRAM 7/15/79 

2 BEH: BY WILLIAM KLUNGLE - FOR TRS-80 LEVEL II, 16K MEH 
5 CLEAH1100a:DIMRS(300) :XS-" " :HS-"WAGAZINE" 
10 CLS:PRINTNS;" INDEX" ; PRINT: PRINT" 1 = KEYBOARD ENTRY" ;PRINT" 

AD DATA TAPE":PHINT" 3 = CORRECTIONS" : PRINT" 4 - PRINT LIST 

T" 5 = DATE SEARCH" iPRINT" 6 = TITLE SEARCH" ; PRINT" 7 = SUBJECT S 

EARCH" iPRINT" 8 = STORE DATA ON TAPE":PRINT" 9 = EXIT" 
15 ONERRORGOTO10! PRINT: E^1:INPUT'SECTI0N " ;S:ONSGOTO100 , 200 ,300 ,40a ,59 

0,e0 0,T0e,800,90 0iGOTO10 
100 IFLENIRS(EI1 >1THEN125ELSECLS:PRINT"NEH ENTRY RECORD »";E;" |0-R 

ETURNl ":TS="":SS-"" 
105 P=3:GOSUB1000:INPUT"ISSUE DATE [82/79) : " ;DS: IFD$-'0"THEN10ELSEI 

FDS- "DELETE "THEN305ELSEPRINTTAB( 22) ;CHRS(27) ;' " ;DS : IFLEN |DS) <>5 

THENGOSUB 1 100! GOTOl 5 
110 P-4!GOSUB1000:1NPUT"TITLE 120 MAX) : " ;TS :PRINTTAB(22) ;CHR5 (2 

7) ;" "jTS: IFLEN (TSXIORLEN ITS) >20THENGOSUB1 100 :GOTO110 
115 P=5:GOSUB1000:INPUT"SUBJECT (12 MAX) : " jSS; PRINTTAB122) :CHRS (2 

7) ;" ", -S?! IFLEN (SSI<1ORLEN(SS>>12THENGOSUB1100:GOTO115 
120 P=7:GOSUB1000!lNPUT"MORE ENTRIES (Y-N-E) " : YS: lFYS-"'THEN12flELSEIF 

YS="E"THEN105ELSETS-TS+X5:SS=SS+XS:RS(E)=LEFTS(DS,2)+RIGHT$|DS,2I 

+LEFTS(TS,20)+LEFTS(SS,121 : IFYS='N"THEN10ELSElFYS-"Y"ANDS=3THEN3e 


125 E=E+l:IFE>3aBTHEN700ELSE100 
200 CLS: PRINT "READ DATA TAPE" ; PRINT: PRINT"SET TAPE TO READ ('PLAY') DA 

TA."!lNPUT"ENTER' WHEN READY (0-RETURN) " ; YS: IFYS="0'THENia 

ELSErNPUTt-l,NS!E=l!pRINTe386,NS; " DATA BEAD IN PROGRESS." 
205 PRINTe53B, "READING FILES " ;E; "-" ;E-l-5 ; : INPUT*-1,RS (E) ,RS (EH) ,RS (E+ 

2) ,RS(E+3) ,RS(E+4I ,RS(E-t5) ! IFR$ (E+31 -""ANDRS (E+-1) -'"AKDR? (Et5) -"" 

THENiaELSEE-E+6;IFE>300THENlBELSE205 
300 CLS:PRINTNS;" CORRECTIONS (COMMANDS: 0'BETURN, ' DELETE ')" :PRI 

NT: INPUT-CORRECT FILE »" ;E: IFE-BOR (E) >300THEN10ELSE1FLEN (R? (E) 1 <1 

THEN300ELSEDS^LEFTS(RS(E) ,2)+"/"-VMIDS(RS(E) ,3,2) !TS-MIDS(RS[E) ,5, 

201 :SS-MIDS(RS(E) ,25,12) :GOSUB1200:GO'PO105 
305 IFS':>3THENieELSERS (E) ="" :GOTO300 
400 E=1:GOSUB490 
40 5 IFRS(E)=""THEN410ELSEGOSUB48a!lFL=14THENPHINT3990,"C=CONTINUE, F- 

FINISH " ; : INPUTYS: IFE>3 00ORYS=''P"THENlBELSEGOSDB4 9a :GOT04B5 
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sections of the program. Thiis 
routine attempts to match a re- 
quested group of characters 
with the record currently being 
addressed. If a match is found, 
the routine causes subroutine 
480 to print the current record on 
the display. 

When the RUN command is 
entered, the program begins ex- 
ecution at line number five. This 
program line clears (sets aside) 
11000 bytes of memory for string 
data storage. Most of this space 
will be used by the data array 
(R$) in which the file records are 
to be stored. Variable N$ is set 
to the title MAGAZINE and X$ is 
set to 20 blanks. X$ will be used 
by the program to format the tile 
records. Array R$ is also dimen- 
sioned at this time to handle 300 
records. 

Program Operation 

Program lines 10 and 15 are 
the selection menu. The ON ER- 
ROR statement safeguards 
against an unusual error or data 
read error which would other- 
wise terminate the program and 
result in a loss of data. Line 100 
is the beginning of the new entry 
section. This line checks the rec- 
ord being addressed for data. If 
the record is empty, the next en- 
try is placed in the empty record. 
This routine allows deleted rec- 
ords to be automatically filled 
when new entries are made to 
the file. This line also clears the 



screen, prints the current record 
number and clears (nulls) both 
title and subject variables. Pro- 
gram line 100 is only executed 
for New Entries. 

Lines 105 through 125 input 
data for the New Entry and the 
Correction sections. P desig- 
nates the cursor position at 
which a particular input request 
is to be printed. Subroutine 1000 
positions the cursor. The length 
of each entry is checked to be 
sure it conforms to the record 
size requirements and error rou- 
tine 1100 is called if necessary. 

The Issue Date variable (D$) 
may be reentered by pressing 
ENTER. Since the date variable 
is not nulled, it need only be 
entered when a change is neces- 
sary. The contents of that vari- 
able are printed in position over 
the entry for confirmation. 

Program lines 200 through 
205 constitute the tape reading 
section. This section allows the 
operator to prepare the tape for 
the data read, reads the file 
name (N$) and then reads six 
records at a time. Before return- 
ing to read additional records, 
the program checks the con- 
tents of the last three records. If 
these records are blank, the pro- 
gram assumes that the end-of- 
data has been reached and re- 
turns to the selection menu. 

Program line 300 accesses in- 
dividual records for correction. 
If the record (E) requested for 



410 E-E+l!lFE<3aiANDL<14THEN485ELSEPRim'@99B,"C-CONTINlJE, F=FINISH"j!l 

NPUT" ";YS:IFYS="F"ORE>3a0THENlBELSEL-0!GOSUB490:GOTO405 
4ee PRINTE;TAB(10);MIDS1RS(E) ,5,201 ;TfiB(351 !HIDS(RS(E) ,25,12) ;TAB(55}f 

LEFTS (RS(E) ,2)+"/"+HIDS(RS(E1 ,3,2) !L-L+1 : RETURN 
4 9B CLS:PRIHT"REC t "; TAB (20) ; "TITLE"; TAB (3B) ; "SUBJECT" ;TAB( 55) ; "ISSUE" 

; PRINT ;L:-2: RETURN 
500 CLS:PRINTNS) ' ISSUE SEARCH BY DATE (0=RETURN) ": PRINT; INPUT"ENTE 

R SEARCH DATE 102/79} : " ;DS; IFDS="0"THEN10ELSEIFLEN(D?) 05THEN5 

00ELSEDS-LEFTS(DS,2)+RIGHTS{DS,2) iE=l !GOSUB49fl 
5B5 IFLEFTSIRSIE] , 4) =DSTHENG0SUB4afl 
510 E=E+::IFE<301ANDL<:14THEN505ELSEPEINTe990,"C=CONTINUE, F=FINISH "i 

: INPUT" ")YS!1FE>3B0ORYS-"F"THEN1BELSEGOSUB490!GOTO505 
600 CLS;PfiINT"SEAHCH "|HS;" FILE FOR TITLE (0=RETURN - S'STOP SEA 

RCH] ":PRINT!B=5:IN=20:E-l!lNPUT"ENTER SEARCH TITLE 120 MAX) : '( 

TS:1FTS-"0"THEN10ELSEIFLEN(TS)<1ORLEN(TS1>20THEN600ELSEGOSUB490 
60 5 YS-INKEYS!lFYS="S"THENL=14ELSEZS-HIDS(RS(E) ,B,IN) :GOSUBI30fl : IFl-BT 

HENei0ELSEGOSUB480 
610 E:-E+l;IFE<301ANDL<14THEN6fl5ELSEPRINT?990,"C=CONTINUE, F-FIBINSH " 

;:TNPUTYS:IFE>300ORY¥-"F"THEN10ELSEGOSUB490:GOTO60 5 
700 CLS!PRINT"SEARCH "jNS;" FILE FOR SUBJECTS [0-RETURH - S=STOP S 

EARCH) "!PRINT:B=25!lN-12;E-:!lNPUT"ENTEfi SEARCH SUBJECT (12 MAX) 
. -,TS!IFTS='0"THEN1BELSEIFLEN[TS)<1ORLEN{TS)>12THEN70 0ELSEGOSUB 

490:GOTO60S 
830 CLE!yS''""!PHINT"STORE ";NS;" DATA ON TAPE (0=RETURN) ": PRINT: PRI 

NT"SET RECORDER TO PRINT ('RECORD') DATA " :INPUT"ENTER NAME O 

F DATA FILE : " ; Y?: IFVS-"a"THENlBELSEIFLEN ( YS) >BTHENNS-YS 
805 CLS;E=1:PRINT@130, "STORING ";NS;" DATA ON TAPE ' :PHINT; PRINTI-1 ,NS 
810 PRINTg390, "WRITING FILES #" ;E; "-" ;E+5; ! PRINT#-1,RS (E) , RS |E+1) ,RS IE 

+21 ,R$(E+31 ,RSIE+4) ,RS{E+5) : IFRS (E+3) s'-ANDRS |E+4) =""ANDR5 IE+5)=" 

"THEN10ELSEE'E+6:lFE>300THEH10ELSEei0 
900 CLS:PRINTTAB(20) :"* WARNING *" !PRINT!PRINT"WMEN THE PROGRAM TERMIN 

ATES, ALL DATA WILL BE LOSTl " iPRINT: INPUT'HAS DATA BEEN STORED ON 
TAPE ";YS!lFLEFTS{YS,ll<:>''Y"THEN800ELSEEND 
100 PRINTCHRS(2e) ;:FORI=1TOP:PR1NTCHRS(261 ;: NEXTI : RETURN 
1100 PRINTTAB(55);CHRS(27) ;"■ ERROR ""iRETURN 
1200 CLS:P-3:GOSUB1000:PRINTrAB|24] ;D$ : PRINTTAB [24) ;TS;PRINTTAB[24) ;SS 

; RETURN 
13 00 FORI = 1TOLEN(ZS)-LEN ITS) +liIFTS:-MID$12S, I, LEN(TS)1 RETURN 
1305 NEXTI:I = 0:RET[IFN 



correction is empty, the pro- 
gram returns to line 300 to ask 
for another record number. If the 
requested record contains data, 
the record is divided into the 
data, title and subject variables 
of D$, T$ and S$. Subroutine 
1200 prints the contents of the 
variables on the screen. 

The program is then directed 
to the entry section (105-125). 
When the entry section is ac- 
cessed through the correction 
routine, the variables will not be 
cleared. Entering only a return 
will permit the operator to skip 
by entries which do not require 
change. If a new entry is made, 
the variable will be changed to 
reflect the correction. After each 
entry, the data in the variable is 
printed on the proper position 
for verification. 

Program line 305 is used only 
when a delete is attempted, tf it 
is not entered from the correc- 
tion section, the delete will be 
rejected and the program re- 
turned to the menu section. 

Lines 400 through 410, along 
with subroutines 480 and 490, 
provide a formatted listing of 
the records in the file. A maxi- 
mum of 14 records can be dis- 
played on the screen at one time 
before the interrupt routine in 
line 405 allows the operator time 
to read the display and choose 
whether to continue the printing 
or return to the selection menu. 

Issue Date Search 

The Issue Date Search sec- 
tion consists of lines 500 through 
510. Since the / entered with the 
data is not stored in the file, the 
search date requested must al- 
so have the / removed. If the cur- 
rent record date matches the 
date requested, the record con- 
tents will be printed on the dis- 
play by subroutine 480. This sec- 
tion will also allow only 14 lines 
to print on the display before in- 
terrupting for an operator deci- 
sion. 

Lines 600 through 610 search 
the file tor a character sequence. 
A search request can include up 
to 20 characters; shorter entries 
require more search time. The 
variable B is set to the beginning 
position of the Title within the 
record (5). Variable IN is set to 
the Title length (20 positions). 

Subroutine 1300 checks the 



requested character group 
against the record. If a match is 
found, the data is printed on the 
display by subroutine 480. The 
search can be suspended at any 
time the operator enters an S. 
This interrupt allows the opera- 
tor to exit the search routine if 
the required record is found be- 
fore the display has been filled. 
Program line 700 allows the 
subject section of the file to be 
searched for a particular char- 
acter sequence. Variable B is 
set to 25, the beginning of the 
subject section of the record 
and variable IN is set to 12, the 
length of the maximum number 
of subject characters. Program 
lines 605 and 610 are used to 
search the file as described 
above. 

Program Termination 

Lines 800 through 810 store 
the data. A name for the file is re- 
quested; if you have no name 
('ENTER' only) the title Magazine 
will be entered automatically. 
Line 810 writes six data records 
on the cassette at a time. The 
last three records are checked 
for data — if these are empty the 
program assumes the end-of- 
data has been reached and 
returns to the selection menu. If 
any of the last three records 
contain data, the record counter 
is indexed and the program 
returns to line 810 to continue 
storing data. 

Program line 900 provides a 
last chance to save data before 
the program terminates. If the 
operator requests Exit Program, 
line 900 will provide a reminder 
that the data in the array will be 
lost when the program termi- 
nates. If the operator responds 
with anything but YES to the 
question, "Has the data been 
stored?", the program will call 
the data storage section. 

This versatile program can be 
adapted to various types of ma- 
terial and uses. If the record size 
is changed, keep in mind that 
the maximum number of charac- 
ters which can be written to tape 
in one PRINT#— 1 statement is 
256. The computer will cut off 
any characters over this amount 
without warning. If the record 
size is increased, the number of 
records stored per PRINT#— 1 
statement must be reduced. ■ 
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GAME 



Paper burns and scissors melt . . . or is it 
rocks cut paper? Play ttie game in less than 4K 



Rock, Scissors, Paper 



Dodd Harris 

11524 Shelbyville Rd. 

Louisville KY 40243 



Remember playing "Rocks, 
Scissors, Paper" wlnen you 
were a kid? Saying "one, two, 
three," you and your opponent 
would tfirow out two fingers, a 
fist or all five fingers and chant: 
"Rock cruslnes scissors!" (or 
whatever ttie result was). 

Introduction 

I decided to write a program 
to play this game for several rea- 
sons. First, I wanted to program 
a game that I hadn't already 
seen done. Second, I wanted to 
program a game with some not- 
too-difficult graphics included 
(after all, I've only been program- 
ming for four months). I wanted 
to avoid a game with all words 
on a screen. 

In fact, this game plays as 
nearly like its real-life counter- 
part as the computer can. (Yes, 
I've played Lunar Lander and, 
for all 1 know, it may be com- 
pletely lifelike, but how can I 
tell?) I think the pictures en- 
hance the way this game plays 
because watching them appear 
quickly takes the place of 



watching a human opponent to 
see what he's done. 

Third, I wanted a game that 
would appeal to my kids and get 
them involved with operating 
the computer, getting used to it 
and losing any hang-ups about 
its being hard to use. They love 
this game! From their playing 
with the machine, I hope they'll 
move naturally toward becom- 
ing curious about how to make it 
do things (read, program it) 
themselves. 

After all, when my kids have 
grown up, these machines are 
going to be as common as 
telephones, and I don't want 
them to be technological 
savages. 

It seems to be working! My 
youngest (aged eight) loads pro- 
grams from tape, gets set up 
and plays games as matter-of- 
factly as she turns on the TV. 
She also is asking questions 
such as : "How does it do that?" 
(Success!) 

My son, aged ten, is a little 
further on. He likes to program, 
but the only statement he's 
mastered is PRINT. He thinks 
making the machine display 
endless lists of his favorite rock 
stars is a programming feat just 
short of evaluating multiple 



integrals in Tiny BASIC, Ah 
well, give me time. Maybe if I 
teach him about conditional 
branches. 

The fourth goal t had for this 
program— and indeed, for all 
programs I write— was to chal- 
lenge myself a little. In other 
words, with each new program I 
want to make the RUNs execute 
a little smoother, to use state- 
ments I haven't used before— if 
appropriate— and to learn some 
new techniques. 

In this one I learned two: 
1) the use of the INKEYS state- 
ment at the end of each of the 
graphics subroutines and 2) the 
use of logical operators in lines 
128 and 200-225. 

The Program 

The program is written in 
Radio Shack Level II BASIC and 
runs on a 4K machine. In fact, 
just as it is, it uses 2919 bytes, 
and I could have trimmed that 
some. There are a number of un- 
necessary THENg, and readers 
will doubtless find dozens of 
other ways I could have tight- 
ened things up. 

Frankly, though, I'm of the 
philosophy that memory is 
cheap, and nobody is paying me 



to squeeze every byte till it 
hollers. So, if I have enough 
memory to run my program the 
way I want it to, I'm satisfied. 
After all, if you're a beginner at 
this like I am, when you set your- 
self a problem to solve, you're 
tickled to find any way to get it 
done. Only when you've solved it 
at all do you look for ways to 
solve it better. 

Speaking of memory, as I was 
writing, I didn't think I'd have 
enough for a lot of REM state- 
ments, so I didn't use any. I'll try 
to make up for that here by ex- 
plaining everything I should 
have REMarked on in the text. 
First, the variables: 

A1 -computer's score 

Bl-player's score 

A-computer's choice ot weapons 

B-player's choice ot weapons 

B$-used to convert player's choice to a 

number 

Q-sels limit on rounds played 

B-counts rounds played 

OS-should be obvious, but, if not, is used to 

allow player to stop or continue. 

Y$-interim variable in INKEYS routine 

Discovering the INKEY$ rou- 
tine in the Level II manual was a 
happy event for me. To explain 
why, let me belabor the obvious 
for a moment and outline in 
some detail the problem it 
solved for me. 
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SOFTWARE - TRS-80 - SOFTWARE 




PACKAGE ONE INCLUDES: GRaphic- 
TREK "2000" — This lull grapftlcs, real 
tima game is tuli of fast, exciting action! 
Exploding photon torpedoes and pfiasets 
fill the screen! You musl actually navigate 
the enterprise to dock with the giant space 
stations as vi«ll as to avoid klingoi^ 
torpedoes! Has shields, galactic memory 
readout, damage reports, long range 
sensors, etc! Has 3 levels for beginning, 
average, oc expert players! * INVASION 
WORG — Time: 3099, Place: Earth's Solar 
System Mission: As general of Earth's 
forces, your job is to stop the Worg 
Invasion and destroy their outposts on 
Mars, 'i/enus, Saturn, Neptune, etc! Earth's 
Forces: Androids — Space Fighters — 
lj«r Cannon — Neutrmo Blasters! Worg 
Forces: RoOots — Saucers — Disintegrators 

— Proton Destroyers! Multi level game lets 
you advance to a more complicated game 
as you get better! * STAR WARS — 
Manuever your space fighter deep into the 
nucleus of the Death Star! Drop your 
bomb, then escape via the only exit. This 
graphics game is really fun! May the Force 
be v^ith you! * SPACE TARGET — 
Shoot at enemy Ships with your missiles. 
If they eiect in a parachute, capture them 

— or it you're cruel, destroy them! Full 
graphics, real time game! * SAUCERS — 
This tast action graphics game has a time 
limit! Can you l>e the commander to win 
the distinguished cross! Requires split 
second timing to win! Watch out! 

ONLYS12.95 




PACKAGE TWO INCLUDES; CHECK- 
ERS 2.1 — Finally! A checkers program 
that will challenge everyone! Expert as 
well as amateur! Uses 3-ply tree search to 
find tiest possible move. Picks randomly 
between equal moves to assure you of 
never having identical games. * POKER 
PACE — The computer uses psychology as 
well as logic to try and beat you at poker. 
Cards are displayed using TRS-80's full 
graphics. Computer raises, calls, and 
sometimes even tolds! Great practice for 
your Saturday night poker match! (Plays 5 
card draw). * PSYCHIC — Tell the 
computer a little about yourself and he'll 
predict things about you, you won't 
believe! A real mind bender! Great 
amusement for parties. * TANGLE MAN- 
IA — Try and force your opponent Into an 
immobile position. But watch out, they're 
doing the same to you! This graphics game 
is for 2 people and has been used to end 
stupid arguments. (And occasionally starts 
them!) * WORD SCRAMBLE — This 
game is tor two or more people. One 
person inputs a word to the computer 
while the others look away. The computer 
scrambles the word, then keeps track of 
wrong guesses. 
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PACKAGE THREE INCLUDES: POE- 
TRY — This program lets you choose the 
subject as well as the mood of the poem 
you want. You give THS-BO certain nouns 
or names, then the mood, and it does the 
res'.! It has a 1000-word + vocabulary of 
nouns, verbs, adjectives and adverbs! * 
ELECTRIC ARTIST - Manual: draw, 
erase, move as well as, Auto; draw, erase 
and move. Uses graphics bits not bytes. 
Saves drawing on tape or disk! * GALAC- 
TIC BATTLE — The Swineus enemy have 
long range ohasers but cannot travel at 
warp speed! You can, but only have short 
range phasers! Can you blitzkrieg the 
enemy without getting destroyed! Full 
graphics — real time! * WORD MANIA — 
Can you guess the computer's words using 
your human intuitive and logical abilities? 
Vou'li need to, to beat the computer! * 
AIR COMMAND — Battle the Kamikaze 
pilots. Requires split second timing. This is 
a FAST action arcade game. 
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PACKAGE FOUR INCLUDES: LIFE - 

This Z-80 machine language program uses 
full graphics! Over 100 generations per 
minute make It truly animated! You make 
your starting pattern, the computer does 
the rest! Program can be stopped and 
changes made! Watch it grow! * SPACE 
LANDER — This full graphics simulator 
lets you pick what planet, asteroid or 
moon you wish to land on! Has 3 skill 
levels that make it fun for everyone, * 
GREED II — Mulli-levol game is fun and 
challenging! Beat the computer at this dice 
game using your knowledge of odds and 
luck! Computer keeps track ot his 
winnings and yours. Quick fast action. 
This game is not easy! * THE PHARAOH 
— Rule the ancient city of Alexandria! 
Buy or sell land. Keep your people from 
revolting! Stop the rampaging rats. Re- 
quires a true political personality to 
become good! * ROBOT HUNTER — A 
group of renegade robots have escaped and 
are spotted in an old ghost town on Mars! 
Your jot) as "Robot Hunter" is to destroy 
the pirate machines before they kill any 
more settlers! Exciting! Challenging! Full 
graphics! 
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HARDWARE- TRS-80 - HARDWARE 



PACKAGE FIVE INCLUDES: SUPER 
HORSERACE — Make your bets just like 
at the real racetrack! S horses race in this 
spectacular graphic display! UP to 9 
people can play! Uses real odds but has 
that element of chance you see in real life! 
Keeps track of everyone's winnings and 
losses. This IS one ot the tew computer 
simulations that can actually get a room of 
people cheering! * MAZE MOUSE ~ The 
mouse with a mind! The computer 
generates random mazes ot whatever size 
you specify, then searches for a way out! 
The second time, he'll always go fastest 
route! A true display of artificial intelli- 
gence! Full graphics, mazes & mouses! * 
AMOEBA KILLER — You command a 
one man submarine that has been 
shrunken to the size of bacteria in this 
exciting graphic adventure! Injected into 
the president's bloodstream, your mission 
is to destroy the deadly amoeba infection 
ravaging his body! * LOGIC — This 
popular game is based on Mastermind but 
utilizes tactics that make it more exciting 
and challenging — has 2 levels ot play to 
make it fun for everyone. * SUBMARIN- 
ER — Shoot torpedoes at the enemy ships 
to get points. Fast action graphics, arcade 
type game Is exciting and fun for 
everybody! 

ONLY $12.95 



MICRO 
SPEED 

upgrade voli"" "slow" TRS-80 to a 
SUPER FAST MACHINE!! (2.66 
MHZ) over 50% FASTER! Some of 
the features: 

Auto turn-off during cassette or 
disk access. (This means NO lost 
programs EVERI) (Turns back on 
automaticallv too!) MANUAL con- 
trol. (Unit may be turned on or off 
at any time. Yes even during 
program execution ! | Keyboard 
inidicator light "blinks" when mi- 
cro-speed is on. Stops blinking 
when off! Don't wait for SARGON 
II or any other program!!! Comes 
with easy to follow instructions. 
(Some soldering required.) OR take 
to your local computer store or 
TV-Appliance Center for quick 
installation. (5-10 minutes!!) Works 
with any model, TRS-80. 

ONLY $24.95 complete 



MICRO 
BEEP 

Simple hook up: Just plug cassette 
remote jack into unit. 



EASILY CONTROLLED FROM 
BASIC: 

OUT 255,4 = on 

OUT 255,0 = off 

MICRO-BEEP make games more 
fun as well as provide useful sound 
output for professional applica- 
tions! 

Works with Any Model I TRS-80 




PACKAGE SEVEN INCLUDES; BACK- 
GAMMON 5.0 — 2 different skill levels 
make this game a challenge to average or 
advanced players FAST {15 second avg) 
Looks for best possible move to beat youi 
FANTASTIC GRAPHICS. Plays doubles 
and uses international rules * SPEED 
READING — Increases your reading 
speed. Also checks for comprehension of 
material. Great for teenagers and adults to 
improve reading skills * pT t09 — Drop 
depth charges on moving subs. Lower 
depths get higher points in this tast action 
graphics game. * YAHTZEE — Play Vaht- 
zee with the computer. This popular game 
is even more fun and challenging against a 
TBS-BO! * WALL STREET - Can you 
turn your $50,000 into a million dollars? 
That's the ot>ject of this great game 
Simulates an actual stock market' 

ONLY $12.95 



ONLY $9,95 complete 



PACKAGE SIX INCLUDES: 20 HOME 
FINANCIAL PROGRAMS — Figures am- 
ortization , annuities, description rates, 
interest tables, earned interest on savings 
and much, much more. These programs 
will get used again and again. A must for 
the conscientious. Inflation minded per- 
son. 



ONLY $12.95 




Master 
Charge 



24 HOUR {7 days) HOTLINE 
(602) 882-3948 

(C.O.D. $3 extra) 



Visa 



Exceptional Products through Research & Imagination 
Send Check, Money Order or Bank Card No. orders to: 



SIMUTEK 
P.O. Box 35298 
Tucson, AZ 85740 



Please Add 2.50 

Per Order For 

Postage & Handling 



Same Day Shipment on Bank Cards, 
Money Orders & C.O.D. 

All Tape Programs Require a Minimum of 16K Level 2 

Packages Available on Diskette (32K System) $4.25 Extra 

3 or More Packages Get 10% Discount 

Dealer Inquiries Invited 
TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORP. 
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The Problem 

Many programs — especially 
games— begin with a lot of 
PRINT statements that fill the 
screen with instructions. If, like 
me, yoii don't have a printer, 
what happens? That's right! On 
the TRS-80 everything but the 
last 16 lines scrolls right off the 
top! I can't read nearly as fast as 
that bear moves! 

Or, in graphics routines, you 
have to go to an endless loop to 
keep the picture on screen and 
to keep a prompt from marring 
it. This means using BREAK and 
CONT((nue) to get going again, 
which I don't like. 

I had been using timing loops 
in these situations, but that was 
very unsatisfactory— never the 
right delay for everybody! Using 
the INKEY$ routine returns com- 
plete control of timing to the 
human side of the interface. 

Lines 1032, 2040 and 3040, 
which use this procedure, are 
copied directly from the Level II 
manual. If you haven't read up 
on the INKEYS statement, here 
is a brief rundown. INKEY$ is 
similar to INPUT, but the com- 
puter, instead of halting com- 



pletely and waiting for an IN- 
PUT, goes into a loop of strobing 
the keyboard (one strobe takes 
only microseconds). If no key is 
pressed (Y$ = ""), nothing hap- 
pens. 

Look at line 3040. It is actually 
two nested loops. Pressing any 
key breaks the INKEY$ loop. 
Then, by the failure of the 
Y$ = ■'" condition to be fulfilled, 
the GOTO 3040 loop and the pro- 
gram continues. (Note: If there 
is no PRINT statement used 
with INKEYS, the key you press 
will not be displayed.) 

Logical Operators 

Inline 1281 use the AND func- 
tion to check for the case in 
which the player makes any en- 
try except one of the precise 
strings in lines 115-125. This is a 
standard device for keeping the 
program on the right track, and 
there's nothing earthshaking 
about it, but this way of doing it 
seems efficient. And if you look 
at lines 115-128, you may con- 
clude, as I did, that there's no 
better (other?) way to avoid con- 
fusion. Consider:- If you use 
three successive checking 



statements of the form: "IF 
B$<>_", then every time the 
player's choice doesn't match 
that of the first such statement, 
the program will GOTO 134, and 
then to 110. In other words, as- 
suming the order in which this 
program is written, you could 
never play anything but 
"ROCK." 

In lines 220-225 I use the 
logical operators to accomplish 
the scoring. Not counting stand- 
offs, which are disposed of in 
line 150, there are six possible 
outcomes— three possible pairs 
of weapons times two possible 
winners. These lines simply ex- 
amine each of the six to see who 
won the round. ■ - 

Nested Subroutines 

The last thing in this program 
that was new for me was using 
nested subroutines. With the 
swirling combinations of pairs 
of choices, pictures and win- 
ner/losers that the game gives 
rise to, I still don't know any 
other way to make it work! 

SUBs 600, 700 and 800 simply 
pick which picture to draw by 
sending the program to SUBs 



1000, 2000, or 3000. Within each 
of those you'll notice very 
similar routines in the lines end- 
ing in 25 and 30.Thisis theway I 
avoided having to draw each 
picture twice, according to the 
winner. 

Conclusion 

Look at lines 110 to 420. Also, 
remember that in the TRS-80, 
when a variable is assigned a lo- 
cation and value in memory, 
that variable is changed only by: 
1) turning off the machine; 2) typ- 
ing in NEW; or 3) instructing the 
machine to change it. 

"So what?" did you say? Just 
this. This means that once the 
player has chosen his weapon, 
his choice remains the same un- 
til he changes it, even though 
the computer picks anew after 
every round and every standoff. 
Therefore, each time you're told 
to hit ENTER to go on, you pan 
hit it twice and play another 
round with the same weapon. 
This makes for a fast game and 
suggests some interesting 
speculations on probability. 

That's it! Try it and see if you 
like it. ■ 



.11.. I. ST 


;.; i;i.s 

1 PRINT 

20 PRINT 
PRINT 
FOR X 
PHiINT 
PRINT 
PRINT 



TA£i( 18)'F;l.)CK.SCi:BK0RSr FfifER UAMt 

IA&( 24)'E!y DOOD HARRIS" 

TA&( 2tJ'ANCNDftAK£:- KV 

TAftC 2S->'JUHtL,19~/9- 

-■■ 1 TO :i.ooo: next x 



TAE!( 21 )" RULES' 

THIii (JAME IS PLAYED ACA.ENS r THE COMPUTER." 
PRINT "EiOTH rOU AND YOUR UPPONeiNT WILL CHOOSE AMONL; ' 
PRINT "ROCK. SCISSORS- AND PAPER. THE N:i:NNINC/LOSIN(.; ■ 
PRINT ■CDMBINATIONS ARE AS FOLLOWS!" 
PRINT TAB< 15) -ROCK CRUSHES SCISSORS <ftCO.( WINS)" 



PRINT 
PRINT 
PR'.l.N T 
PRINT 



rA&( 1-4) "SCISSORS CUT PAPER (SCISSORS WINS)' 



TAB< 17) "PAPER COVERS ROCK (F'APER WINS) " 

100 Ai ==■ i;&:i. '•-■ 1 

1(17 .LNPUT "HOW MANY ROUNDS DO YOU WANT TO PLAY" it) 
FOR ft -- 1 TO 

INPUT "CHOOSE ROCK- OR SCISSORS. OR PAPER" lEi* 
IF e* ^ 'ROCK" THEN B = 1 
1> B* ^- -SCISSORS- THEN B ■-- 2 
■PAPER" THEN B -= 3 
> 'ROCK' AND £!* ■■: > "SCIBBI.IkS" AND B* 
THEN IS't 



108 
IIU 
113 
120 
12rj 
12B 



.1:F £:* 
IF Ei* 
FfitFER - 

oaro 130 



liiO 
15S 
liO 
16;.i 
ZOO 

2o;^; 

210 
213 
220 
223 
310 
:J13 
100 
103 
110 
113 
120 
600 
AlO 
615 
/OO 
710 
713 
SOU 
UIO 
815 
1000 CLS 



PRINT 
IIU 

IF A ---■ 
XF A ■■■■■■ 
IF' A ■-■■■■ 
IF" A = 
IF A --- 
IF A ^-■■ 
IF A =■■ 
IF A =■■■■ 
XF A =■' 
IF A = 
PRINT 
PRINT 
NEXT R 
INPU T ' 
IF CS 
F'RINT ' 
END 

IF B --■■■■ 
IF B =■ 
RETURN 
IF B ■-■'■ 



YOU TYF'EL) IT IN WRONi.;, PLEASL TRY AGAIN. 



B THEN 

1 THEN 

2 THEN 

3 THEN 
1 AND e 

1 AND B 

2 AND B 

2 AND B = 3A1 

3 AND B = lAl 
3 AND B 



PRINT -STANDOFF' 

GOSUB 600 

GOSUB 70 

GGSLJB HOO 

2A1 ■-'- Al ^■ i. 



TRY ACAIN- : [;0T0 lOV 



3B1 
IBl 



Bl 
Bl 
Al 
Al 
Bl 



TAB( 16) "PLAYER" f ! AB ( 111) J " f.;OHFUTER- 
TflB< 18)&:l! TAB( 52JA1 

WANT TO PLAY SOME MORE" fC* 

■YES" QOrO 1(10 
O.K. ! SO LONG I " 

2 GOSUB 1000 

3 QOSUB 200 



1 GOSUB 1000 
IF' E: '■■■ 3 GOSUB 2000 
RETURN 

xf b ■-■■■ 1 gosub 3000 
if e =- 2 cosub 2000 
re:turn 



I (Hi J Ht. I ( 3/ . 29 ) : ^iE:,T ( 5fr{ , 



;V) ;SET (69.29) ;SLr(69.28) ;SEI (70.27) 

^3) :BE:Ti;3A,30):SET(sy.30) : for X =. 6 



1003 SET (/lT26):Sti:T(72i 
3 TO 66 

1010 SET(X.30): NEXT X! SET (56.31 ) !SET(59. 31) : FOR X '^'^ 62 TO 
67 

1011 SET(Xf3I): NEXT X ;Sf:T(S7. 32) I SET (58. 32) -' FOR X ---- 60 TO 
66 - - , ■ 

1012 SEr(X.32): NEXT X; FOR X ^ 60 TO 69: SEKX -33> : NEXT X 

1013 SET ( 61 ' 31 > ; SET ( 62 . 31 > ; SET ( S7 . 35 ) E SET ( 58 , 33 ) i SET ( 60 . 33 ) 

1011 SET { 63 , 35 ) J SET ( 56 . 36 ) ! SET ( 39 . 3& ) ; SET (61 . 36 ) : SET ( 56 . 37 ) 
.1 1 5 SF: r ( 59 . 3/ ) ! SET' ( (!>5 . 37 ) : SF! T' ( 37 . 38 ) : Sbl! T ( bB . 33 > ; Sb T ( 66 . 3H ) 



1016 
1020 
1025 
102S 
1030 
1032 
,1033 
20 
20 01 



SET(67,39) 
PRINT (8911, "ROCK CR'USHES SCISS(JRS' 

IF B =--^ 2 PRINT C?961" - COMPUTER WINS' 

IF B :^ 1 PRINT (^961- ~ PLAYER WINS" 

PRINT r^980"HIT 'ENTER' TO CONTINUF'" 

y* ■■= INKEiV*! IF" y* :■■■■■■ "' THEN 1U32 
RETURN 



CLS 

SET (31. 25) 



2002 SLH20.27) 

2003 SEI (22.29) 



SEI(33,26):SET(32,27);SET(31.2B)iSLI<30.29) 
SLT(21.27);S£:T(19.28>!SET(22.2S):S£7C19,Z9) 
SET (20. 30) : SET (2 1.30) I SET (23. 30) ! SET (29.30) 

FOR X -■■■-■■■ 28 ro is:s£:t<x.31) : next x: for x ■- 



2001 SET(21-31)1 

25 TO 28 
2003 SET(X.32>: NEXT X;SET( 11.32) : SET<21. 33) :SEr < 27 . 33) I SET 

<13r33) 

2006 3ET(20f31>!SET(21.31)!SET(23.31) i F'OR X == 26 TO ISIEIET 
< X r 31 ) 

2007 NEXT X:SET( L9. 33) :SET<22. 33) JSET (30 .35) :SETa9 .36) 
200S SET(22-36) : SET (31.36) : St:T<20. 37) :SET (21. 37) !SET<32. 37) 

2009 SEr(33.38):SET(31,39) 

2020 PRINT La920"SCISSORS CUT F'APER" 
2023 IF P = 2 PRINT B910 " - PLAYER WINS" 
2030 XF B -■ 3 PRINT ^910° - CDMPUrER WINS" 
2033 PRINT e980"HIT 'ENTER' TO CONYINUE- 

2010 Y» :::■■ XNKEY* S IF y* =^ " " ■fl4EN 201(1 
2013 RETURN 

3000 CLS 

3001 FOR X ^'■- 38 TO 71! SE r( X, 31 ) : NEXT X 

3002 SET (37.35): SET (73. 33) t SET (36.36) ! SET (72.36) 

3003 FOR X =- 35 TO 71 !SET( X. 37 ) ! NEXT X 
3001 FDR X = 61 TO 67:SET( X.38) ! NEXT X 
3005 FOR X = 60 TO 68!SET(X.39) ! NEXT X 
3020 PRINT P919-PAPER CO(.'ERS ROCK" 

3025 IF B --■■■■ 3 PRINT H910 " - PLAYER WINS" 
3030 IF B ■-■■ 1 PRINT K910" - COMF'UTER WINS" 
3033 PRINT ii*980"HIT 'ENTER' TO CONTINUE" 
3010 Y* ■■■- INKEYS! IF YS ■= "" THEN 3010 
3015 RkTURN 
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TRS-80 is a registered trademark of TANDY CORP. 



FOR THE 




LxSYSTEM 
EXPANSION 



TRS-80 
$69 " [ 



PC BOARD & 
USER MANUAL 



SERIAL RS232C. 20mA 10 
FLOPPY CONTROLLER 
32K BYTES MEMORY 
PARALLEL PRINTER PORT 
DUAL CASSETTE PORT 
REAL-TIME CLOCK 

• SCREEN PRINTER BUS 
» ONBOARD POWER SUPPLY 

• SOFTWARE COMPATIBLE 

• SOLDER MASK.SILK SCREEN 

LNW 
RESEARCH ..3 

8 Hollowglen St. Irvine CA 
714-552-8946 92714 



TO ORDER 



_ ExplraUon Dale 



P.O.Box 16216 Irvine CA 92713 
Add S3 for postage and handling. 
CA residents add 6% sales lax 

S^nature .___^ 



DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 





ISO 1 ^J ISO-2 

Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
•ISOLATOR (ISO-1 A) 3 filter isolated 3-prong sockets; 
integral Surge/Spike Suppression; 1875 W Maximum load, 

1 KW load any socket $54.95 

•ISOLATOR (lSO-2) 2 fitter isolated 3-prong socket banks; 

(6 sockets total); integral Spike/Surge Suppression; 

1 875 W Max load, 1 KW either bank $54.95 

"SUPER ISOLATOR (lSO-3), similar to ISO-1A 

except double filtaring & Suppression .... $79.95 
•ISOLATOR (ISO-4), similar to IS0-1A except 

unit has 6 individually filtered sockets .... $93,95 
•ISOLATOR (ISO-5), similar to ISO-2 except 

unit has 3 socket banks, 9 sockets total . . . $76.95 
•CIRCUIT BREAKER, any model (add-CB) Add $ 6.00 
•CKTBRKR/SWITCH/PILOT any model 

(CBS) Add $11.00 

PHONE ORDERS 1-617-655-1532 J^g 

Zsir' Electronic Specialists, Inc. ^53 



171 South Main Street, Natick, Mass, 01760 



Dept.SM 



\r\ 









®l' 



\« 



^■^^ 



A,<:>' 



»^ 



\^-J 






^"^"^ /■ 




MICROCOMPUTING 



r edufotion . . . t'l'\! 



Yes! Please send me Kilobaud 
MICROCOMPaTINGat a saving of 
40% to 50% off the newsstand 



price. 



D 1 2 issues for S 1 8 (save 40%) 
D 24 issues for S30 (save 50%) 
D 36 issues for S45 (save 50%) 
D Mew subscription D Renewal 

n Payment enclosed 3 

D VISA D MC ' n AE 



D Bill me 



Cardtt 



Exp. date 



Signature 
Name 



Address 
City 



State 



Zip 



—for even faster service call toll-free (800) 258-5473 

Canada- same as US, in US lunds. 

Olher foreign: $23 one year only, US lunds 304B8 

— MICROCOMPUTING • POB 997 • Farmingdale I^Y 1 1 737- 
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40-PIN EDGE CONNECTORS 

(wirewrop style) 
hir Your IkS 80 or Siiptrbr;iiii. 

S3.')5— INickel pliiltil phojiphor bron/c 

LonliKls. 
$7.95 — <i(»ld plaled a)iiriii:ls. 
OR- 

ir> nur i\)M) edse card for y«iur TRS-SO. Tlic 
Sl>4() is ii precision doiilik sided C.C. hoard 
wi(h 4(1 pill eoiiiKclor in froni, wired lo i Uvpin 
dip sockets ill biKk. Ise (he }[)4() wiih dip rib 
hon cahks and soldcrlcss breadboards Ut make 
TRS 80 iiileriaeintj experiments a snap! Sli.^S 

ALSO — Coming soon for your TRS-flO 

THE SCHEDULER 

\ii iiiev|Kiisi\e Mslem of hardware and sol'l»are 
Ih^l provides a real lime eloek and wireless 
remote eonlrol oi 25(> exleriial tie'iees for \oiir 



I ks Mt. 



RO. Dox 566 
Westfield, MA. 
O'lOaS 



^2oa 






Diskette 
SALE 

WE WILL NOT BE 
UNDERSOLD!!! 



Find the best price you can in tliis 
magazine on a box of 1 0, 5 Va " Verbatim 
diskettes and 




ILow dtscount puce — $26.50) 

THAT'S OUR PRICE 

Eiy(3 

4636 Park Granada 159 
Calabasas California 

91302 ^gg C2131092-1970 

Offer good as long as supply lasts. 
Please add 50* shipping in the Continen 
tal U.S. 




TRS-80* STRUCTURED 
BASIC 

Now available for fKS-SO disk systems 



A pre-compiler adding performed pro- 
cedures, case structures, repeat while, until 
and many other structured language state- 
ments lo the already powerful Level II 
BASIC. Diskette S50.00, Listing $35.00, 
Manual purchased separately $10.(K). 






313 Meadow Lane 
Hastings, Michigan 49058 

(616) 945-5334 
(Dealer inquiries invited) 



' TRS-80 IS a trademark of Tandy Corp 



EXPANDED MAILLIST SYSTEM 

By Harry Hopkins 

AHei 18 month', o' deveiopmeni ood one yeai In field testmq C.E.C.S. no- 
rplertsei tlip moit complete mallinq ll^t system available for the TRS-80. at a 
special low Introductory price of $59,95. The system requires a slnaie dl'.l^ => 
321 interface and a printer. 

The e.panded t^aillist System utiliies an eiclusive machine ianiiuaue Mjrt 
which ollow\ tor the sort of 500 records by n-ime itate or zip code in 5 second',! 
The iystem has complete error trapplnq ^nd recoyery such as au+omatlcaHy sav^nq 
the tlJe when memory space Is full arid remolnlnq In the system under a fUe no' 
found' condition. The system also has multiple 'I'e and reorqaniiatlon capabilities 

The followrnq fully 'inked proqrams are Included in the Eipanded t^alllist 
System; 

I, DUPLICATE CHECKING— Chects for duplicates as you enter and aiso h«i 
a separate routine that will purqe an entire file of duplicate names with a single 
command. 

i. FILE MAINTENANCE— Used for addmL. deleting, and complete ed.t.m 
o' your mai' list fi^es. 

3. LABEL AND LIST PRINTING— Ahow; selective pnnt.ng of labels or hsls 
on up to a (en d'qit ley. Also ha^ full suppression capability. For e<ample If 
you want a 'ist ot everyone In your file with a 'JAN' In their tey code enceot 
those with an '80' you should select JAN' and suppress 'SO'. 

4. STATUS ANALYSIS— This program will qenerate staflstlciil reports on the 
percentages of names with certain leys or reqiona! ' breakdown. Very useful for 
last issue notices or labes. 

5. FILE REORGANIZATION— W.th, this program vou may reorganize your 
files into specific alpha or ;lp code 'anqes 'or true multi-file capability. 

6. MULTI-PURPOSE LABEL UTILITY— Provides formatted printmo oi labels 
for special applications, 

Eipanded Mallilit Syitem on dlibtte with manual 159.95 
Manual only $3 with full credit toward! purchafe. 



AMCT-80 



By Earl Petonon 
Th.s automatic morse code teacher for the 161. level 2 TRS-SO Is the only 
morse code program that will automatically [at your option) slow down or speed 
up depending on your proficiency to receive code. It includes 9 preprogrammed 
progressive eierclses. l-ully variable speed up to 30 w.p,m, 1-9 characters per 
group, and 1-9 spaces between groups are'user selected options. The send mode 
allow! for keyboard entry concurrent to sending by utilizing a 256 byte rlnq 
buffer. There are 9 user programmable messages of 64 characters each. 

This machine language program is truly the morse code teacher o' tomorrow 
iodi/i 

AMCT-80 on caoette with full documentation %\A.9S 
Dsaler Inqulrlei invited. 



^^^ 



COST EFFECTIVE COMPUTER SERVICES 
1041 U+e — P. O. Box 3543 Grand Junction, CO 81502 

[3031 243-3629 ^,^ 




on computers, peripherals, software and other Radio Shack® products. 
Offered Exclusively By 

Pan American . Radio /haeK 

bleCtrOniCS, inc. " Authorized SalesCemer 

1 1 17 CONWAY MISSION,TEXAS 78572 

Toll Free 800/531-7466 ... 

Texas & Main No. 512/581-2765 



VtSA' 



NO TAXES collected on out-of-state shipments. 
FREE delivery available on minimum orders. 
WARRANTIES honored by Radio Shack® . 
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APPLICATIOIN 



Generate semi-professional captions for video productions. 



Video Titler 



Mark Rotzien 
413 Cedar Ave. 
Mirineapotis. MN 55454 



What's that, you say? Not 
another super-mega- 
banner program? Well, yes . . . 
and no. While the intent of the 
program is indeed to format text 
on the screen, it has a more se- 
rious application. 

The inspiration for this pro- 
gram was a comment dropped 



by a friend, as she watched data 
flickering by on my monitor. 

"You know," she said, "it 
would be very handy to put titles 
and credits on my tapes by us- 
ing something like that." 

She is attempting to break in- 
to the independent video pro- 
duction market. 

Initial Resolution Losses 

I gave it some thought, since 
professional titlers are quite ex- 
pensive. I could, of course, mod- 
ulate the output of my TRS-80, 



using an inexpensive video mod- 
ulator circuit, and simply record 
it as a channel 3 signal. 

Unfortunately, I had tried 
something like that long ago. 
The resolution losses suffered 
through the modulator, tuner 
circuitry and narrow bandwidth 
of television receivers made it 
very unsatisfactory. 

I realized after further reflec- 
tion that there was no need to 
modulate the computer's output 
at all. My friend's VTR has the 
usual camera input, and it 



doesn't care whether the signal 
comes from a camera or a com- 
puter, as long as it is composite 
video! 

Titler accepts your text and 
formats it on the screen with 
many options. 

The program will present your 
titles, credits, etc., on separate 
video "pages," using from 1 to 14 
lines of text per page. Lines may 
be single, double or triple- 
spaced. 

A line of text can consist of 
any characters — except a com- 



Program Listing 


100 DEFINTA-Z 


480 


IFX=C THENRETURN 


110 CLt;AR2000:GOSUB1120 : INPUT"DO YOU WANT INSTRUCTIONS 


490 


IFZ=LN(P)THENP=P+1:Z^1:A=A+1:GOSUB125 0:GOSUB1030:GO 


"; IS: IFLEFT$ (I S , 1 ) =" Y"THENG0SUB114 




SUB1250:A1=L1:Z=1:NEXT 


120 DIMLN (100) , US (100) .MARGIN (100) 


500 


S=Z+1:A=A+1:A1=A1+64'SP:GOSUB14 20:NEXT ■ 


130 GOSUB1230:' HEADING 


510 


F0RW=1T0LEN(MS (X) ) 


140 GOSUB570 


' GET PAGES 


520 


PRINT0A1-HHARGIN[X) ,MIDS(MS(X) ,W,1) ;: 


150 GOSUB600 


' GET # LINES IN PAGE 


530 


F0REE=1T03*SC:NEXT 


160 GOSUB720 


' TYPE FACE 


540 


A1=A1-I-V 


170 GOSUB870 


' FRAME? 


550 


NEXTW:RETURN 


180 GOSUB750 


' GET LOCATION ON SCREES 


560 


STOP - ■ . ■ 


190 GOSUB830 


' GET SPACING - 


570 


' # PGS 


200 GOSUB900 


■ GET SCROLL PARAMETERS 


580 


PRINT:PRINT: ISPDT"ENTER THE NUMBER OF PAGES " ; PG 


210 GOSUB940 


' INSERT COMMAS, ETC. 


590 


IFPG=0 ORPO100 THEN580ELSERBTURN 


220 GOSUB240 


' PRINT IT S WAIT FOR EDIT 


600 


■# LNS/PG 


230 GOSUB1250:GOSUB1120tGOSUB1250:GOTO1270: ' EDITTING 


610 


FORX^ITOPG 


240 ' PRINT IT 


620 


PRINT:PRINT"NUHBER OF LINES IN PAGE" ; X ; : INPUTLN (X) : 


250 IFTP=1THENGOTO37 




IFLN(X) >14THENPRINT"T00 MANY LINES. " :GOTO620 


260 A1=L1:P=1:Z=1:V=1 


630 


NEXTX 


27 FORX^ITOC : MARGIN (X)= INT ( (6 3-LEN (MS (X) ) )/2) : IFMABGIN 


640 


F0RX=1T0PG!C=C-^LN(X) iNEXT 


(X)/2 <>INT(MARGIN{X)/2) THENMARGIN (X) =HARGIN (X) -1 


650 


P=1:A=1:Z=1 


280 NEXTX:CLS:IFFR=1 THENGOSUB990 


660 


GOSUB1120:PRINT@16,"PAGE";P 


290 GOSUB1250 


670 


PRINT :PRIHT: PRINT "LINE"; A; : INPUTMS (A) 


300 Z=1:F0RX=1T0C 


680 


IFA=C THENRETURN 


310 IFLEFTS(SCS,1)="Y"THENGOSUB510:A1=A1-LEN(MS(X) ) :GOT 


6 90 


IFZ=LN (P) THENP=P-H : Z = l :A=A+1 :GOTO66 


0340 


700 


A=A4-1: Z = Z + 1 


320 GOSUB1420:' PROTECT AGAINST RUNNING OFF SCRN 


710 


GOTO67 


330 PRINT@A1+MARGIN(X) ,MS (X) ; 


720 


TP=0;GOSUB1120:INPOT" (L)ARGE OR (S)MALL TYPE";TPS 


340 IFX=C THEN RETURN 


730 


IFTPS="L" THENTP=1:TP5="" 


350 IFZ=LN{P)THENP=P+l:Z=l:A=A+l:GOSUB1250:GOSUBla80!GO 


740 


RETURN 


SI)B1250:A1=L1:Z=^1:NEXT 


750 


'POSITION 


360 Z=Z+l:A=A-i-l:Al=Al-f-6 4*SP!GOSUB14 20:NEXT 


760 


GOSUB1120:PRINT"LOCATION : 1. TOP":PRINT" 


370 Al=Ll:P-l:Z=l:V-2 




2, CENTER": PRINT" 3. BOT" 


380 F0RX=1T0C 


770 


PRINT:PRINT:INPUT"YOUR CHOICE";LC 


390 MARGIN {X)=INT( {6 3-2* (LEN (MS (X) ) ) )/2) : IF (MARGIN (X) /2 


7 80 


IFLC=0 0RLO3 THEN770 


)<>INT(MARGIN(X)/2)THEN MARGIN (X) =MARGIN(X) +1 


798 


IFLC=1 THENL1=64 


400 MARGIN (X)=MARG1N(X) -2 


800 


IFLC=2 THENL1=384 


410 NEXT:GOSUB1120 


810 


IPLC=3 THENLl=896 


420 IFFR=1 THENGOSUB990 


820 


RETURN 


430 GOSUB1250 


830 


'SPCING 


440 F0RX=1T0C 


840 


GOSUB1120:PRINT"SPACING : 1, SINGLE" :PRINT" 


450 IFLEFT5{SC$,1)="Y"THENGOSUB510:A1=A1-2*(LEN(HS(X) )) 




2. DOUBLE" iPRINT" 3. TRIPLE" 


;GOTO480 


850 


PRINT:PRINT!lNPUT"YOUR CHOICE " ;SP! IFSP=0OR SP>5THE 


460 GQSUB1420 




N850 


470 PRINT@A1+MARGIN(X) ,MS(X) ; 


860 


RETURN 
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ma or a colon — or can be a null, 
i.e., no characters at all. 

In this way you can vary the 
spacing to suit yourself. 

After inputting the text, the 
screen clears and allows the 
user to roll the VTR. Pressing 
any key causes page one to be 
printed. Press again and the 
screen clears to allow pauses, if 
necessary. 

Pressing again prints page 
two, etc- 

After the last page is printed, 
roll enough blank tape to lead in- 
to the subject matter. Press any 
key and you are now in edit 
mode, where you can change 
line contents, scroll rate, type 
size, etc. 

Since most VTRs allow moni- 
toring, it is easy to hook one 
up and run the program. When 
the titles look O.K. on ttie televi- 
sion, record them. 

The Program 

Titler Is written fortheTRS-80, 
Level II, 16K. With some pruning 
it could easily fit in 4K. 

To adapt it to another ma- 
chine, your BASIC must have a 



comprehensive set of string 
handling functions and com- 
plete output formatting capa- 
bility. 

The subroutines at 870-890 
and 990-1020 let the user put a 
frame around the text. It is not 
erased between pages. 

This is included because on 
some VTRs, a totally blank 
screen results in annoying color 
fringes when the first line ap- 
pears. Using the frame appar- 
ently kicks in the color-killer cir- 
cuitry and gives much cleaner 
type. Of course. If your com- 
puter outputs color, you won't 
have this problem. 

Lines 270-280 and 380-410 de- 
termine the margins for each 
line of text. Since two type sizes 
are available with the TRS-80, 
the margins depend on the type 
size you choose. When entering 
the text, don't use more than 60 
characters of small type or 30 
characters of large type. If you 
exceed these lengths the lines 
cannot be centered on the 
screen. 

If your television is anything 
like mine, then you'll want near- 



ly ail your titles in large type any- 
way. 

Lines 940-980 remedy Level 
ll's inability to accept a comma. 
When you want a comma you 
must use the up arrow (expo- 
nent symbol). It is then pro- 
cessed into a comma. 

Level II will not accept a co- 
lon, either. For lack of another 
key to use in its place, I left it 
that way. Use a semi-colon or a 
dash. 

The subroutine at 1250-1260 
uses an interesting feature of 
Level II. InkeyS is an instant 
scan of the keyboard. If no key is 
pressed, it is a null. InkeyS is 
used here to provide a transition 
between pages. 

Lines 1420-1430 prevent the 
text from running off the bottom 
of the screen, producing annoy- 
ing FC ERROR messages. 

If several lines are to be 
displayed at the bottom of the 
screen on the same page, each 
new line will write over the old 
one. If the lines are scrolled 
slowly, it makes an attractive 
display. 

The rest of the program is 



relatively self-explanatory. I've 
used REMark lines liberally. 
They can be deleted, along with 
the instructions, to save mem- 
ory. 

Also, the size of the arrays in 
line 120 is rather exorbitant, 
unless you have to use 100 
pages of Information as i did! 

A Final Warning 

Any time you connect another 
piece of equipment to your sys- 
tem you should consider its 
safety. While your computer is 
itself isolated from the line, 
perhaps your monitor or other 
equipment isn't. 

If you connect the computer 
directly to the VTR, which is in 
turn directly connected to the 
television receiver, you may be 
asking for trouble. 

If there is the slightest doubt 
In your mind whether any equip- 
ment is isolated from the line: 
STOP! I advise the liberal use of 
Isolation transformers — they 
are cheap insurance against a 
nasty and expensive surprise. 

Good luck and . . . ahem , . . 
roll the credits! ■ 





Program Listing (cont.) 


870 


GOSUB1120:PHINT"DO YOU WISH A FRAME FOR TEXT ?" 


1190 


PRINT"THE FIRST PAGE ,": PRINT : INPUT" PRESS ENTER TO 


880 


FR=0:PRIHT: PRINT :INPUTFR$:IFLEFTS(FRS,1)="Y"THENFR= 




CONTIMUE ";IS:GOSUB1120:PR1NT" PRESSING ANY KEY 




1 




WILL CLEAR" :PRINT"SCBEEN - PRESSING AGAIN WILL":PR 


890 


RETURN 




INT "START THE SECOND PAGE, ETC." 


900 


' SCROLL 


1200 


PRINT:PRINT" AFTER THE LAST PAGE, THE " : PRINT"SCR 


910 


GOSUB1120 :PR1NT"D0 YOU WANT THE TEXT TO SCROLL " : IN 




EEN WILL CLEAR AGAIN TO" : PRINT " LEAVE BLANK LEADER 




PUT"ON THE SCREEN ";SCS 




INTO YOUR":PRINT"SUBJECT. PRESSING A KEY AGAIN":? 


920 


IFLEFT$(SC$,11<>"Y"THENRETURN 




RINT"WILL PUT YOU IN EDITTING MODE." 


930 


PRINT:PRINT:INRUT"HOW FAST 1 1 TO 9 1";SC:RETURN 


1210 


PR1NT:PRINT" ENTERING A 'Y' OR 'N' WILL" : PRINT"S 


940 


' FIX UP RADIO SHACK STRINGS 




UFFICE FOR YES/NO QUESTIONS .": PRINT" YOU MUST USE T 


950 


FORX^ITOC 




HE '[' SYMBOL" :PRINT"INSTEAD OF A COMMA." 


960 


F0RT = 1T0LEN{MS(X) 1 


1220 


PRINT: 1NPUT"PRESS ENTER " ; IS 


970 


IFMIDS(MS(X) ,T,1)=" ["THENMS(X)=LEFT5(MS(X) ,T-1)+",'' 


1230 


' ? HEAD 




-t-MID$(MS(X) ,T+1) 


1240 


(^rmrTRi i ^o - pniNTJiiT ti "n^ r 'T^r h'P " - d& t wp/S"? a ^' " . 






980 


NEXTT:NEXTX:RETURN 




RETURN 


990 


' FRAME 


1250 


■INSTRING 


1000 


FORG^0TO127:SET(G,0) :SET(G,47) :NEXT:IFTP=1 THENFOR 


1260 


IS=INKEY5:IFIS<>""THENRETURNELSE126 




G=0TO47:SET(0,G) : SET (125, G] tNEXT 


127 


GOSUB1120 : INPUT"DO YOU WANT TO EDIT " ; EDS : IFLEFTS ( 


1010 


IFTPOl THENFORG=0TO47:SET(0,G) :SET(1,G) :SET(126,G 




ED$,1)<>"Y"THEN1410 




) :SET(127,G] :NEXT 


1280 


PRI NT : PRI NT : PRI NT " EDIT TABL E " 


1020 


RETURN 


1290 


PRINT:PRINT"1. NEW SPACING" : PRI NT" 2 . CHANGE TYPE": 


1030 


IFFRO1GOTO1120 




PRINT"3. EDIT A LINE " : PRINT"4 . CHANGE SCROLL RATE" 


1040 


V1=L1 




:PRINT"5. SHIFT POSITION ON SCREEN" : PRINT " 6 . FRAME 


1050 


PRINT^Vl+2, " "; 




?" 


1060 


Vl=Vl-t-64:IFVl>^-960THEN1070ELSE1050 


1300 


PR1NT:PRINT;INPUT"Y0UR CHOICE ";CE:IFCE=0 0RCE>6TH 


1070 


RETURN 




EN1300 


1080 


IFFROl THEWCLS;RETURK 


1310 


ONCEGOSUBa30, 7 20, 1330, 90 0,136 0,870 


1090 


V1=L1 


1320 


GOSUB1120:INPUT"ANY FURTHER EDITING "; FES : IFLEFTS ( 


1100 


PRINT@V1 + 1, " 




FES,1)-"Y"THEN1280ELSE1410 




" ' 


1330 


GOSUB1120:INPUT"WHICH LINE DO YOU WANT TO EDIT";LL 


1110 


V1=VH-64:IFV1>=960THENRETURNELSE1100 


1340 


PRINT: PRINT: PRINTM${LL) ; PRINT : PRINT : INPUT"NEW LINE 


1120 


CLS 




";MS(LL) 


1130 


PRIHTCHR${23] :RETURN 


1350 


GOSUB940:RETURN 


1140 


' IWSTR 


1360 


GOSUB1120: 1NPUT"SHIFT (U)P OR [D)OWN ";ES 


1150 


GOSUB1120 


1370 


PRINT: INPUT"H0W MANY LINES " ; NL 


1160 


PRINT" THIS IS A TITLER PROGRAM" : PRI NT "FOR USE W 


1380 


IFLEFTS (ES,l) = "U"THENLl=Ll-164*NLj : 1FLK64THENL1-6 




ITH VTR'S." 




4 


1170 


PRINT:PRINT" IT IS DESIGNED TO PRESENT "; PRINT"TE 


1390 


IFLEFTS (ES,1)="D"THENL1=L1+164*NL) : IFLl >e96THENLl= 




XT AS VIDEO 'PAGES', WITH" : PRINT"BLANK SCREEN BETW 




896 




EEN PAGES. " :PRINT:PRINT" YOU MUST PREPLAN HOW MA 


1400 


GOSUB1420:RETURN 




NY":PRINT"PAGES OF TEXT YOU WANT, AND HOW" 


1410 


PRINT:PRINT: INPUT"RUN DISPLAY AGAIN "; D$ : IFLEFTS (D 


1180 


PRINT"MANY LINES PER PAGE, TO A MAX-" ; PRINT" IMUM 




S,1)^"Y"THEN220ELSESTOP 




F 14. AFTER ENTERING THE" : PRINT"TEXT, THE SCREEN W 


1420 


IFA1>=-896THENA1 = 896:IFV = 2 GOSUB103 0ELSEGOSUB10 80 




ILL CLEAR" :PRINT"AND PRESSING ANY KEY WILL PRINT" 


1430 


RETURN 
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APPLICATION 




I 

Ching 



This program throws the sticks and displays your hexagram. 



Anthony T. Scarpelli 

RR1 Box 426 

N. Windham, ME 04062 



Many people have heard 
about the / Ching and are 
not quite sure what it is. Many 
peopie have Radio Shade's 
TRS-80 microcomputer and 
wonder what they can do with it. 
The / Ching calculates life's 
changes and the TRS-80 makes 
life's calculations easier. 

Life is change. A static flow of 
life cannot exist. The Chinese 
found 64 changing patterns of 
life and in time collected them 
into a book called the / Ching, 
literally, Booi< of Changes. 

The book is from 3000 to 5000 
years old and has undergone 
testing by the most venerable 
Chinese, including Confucius. 



He added his own commen- 
taries to the book and they are 
included in this English version 
by Richard Wilhelm/Cary F. 
Baynes. 

The Principle of Opposites 

The concepts of the / Ching 
are based on the dual principles 
of yin or yang, light or dark, pos- 
itive or negative, evolution or de- 
volution, in other words, op- 



posites. When change occurs, 
these two opposite forces can 
be detected by coins, yarrow 
stalks, or in our case, our own in- 
tuition. 

A two-sided coin can repre- 
sent yin arid yang. If heads or 
yang is given the number three, 
and tails, yin. is numbered two, 
then three coins thrown at the 
same time can come up with a 
total of six, seven, eight or nine. 



ONG (71 



-- riN (a) 

I(N (8) 

VnNG {Tl 

YONG (7) 



VIN (81 



Fig. 1. A Thrown Hexagram 



-X- 

-e- 



-X- 

-e- 



THROWN HEXA(;RflM 



CHANGED HEXiGkiM 



Fig. 2. How a Hexagram Changes. 



Seven and nine represent a 
yang, while six and eight repre- 
sent a yin. 

The coins are thrown six 
times, and each total represents 
a line of the / Ching hexagram, 
which, starting at the bottom go- 
ing upwards, are written down 
as shown in Fig. 1. 

Six and nine are called the old 
yin and old yang respectively. 
According to the / Ching these 
two numbers have a tendency to 
change to their opposites so are 
assigned special symbols, the X 
or the O". When a hexagram, con- 
taining a six or a nine, has been 
thrown, a new hexagram is writ- 
ten down to reflect these 
changes (Fig. 2). 

To diagnose a change, make 
a prediction, or when seeking 
advice, ask a question and with 
this question always in mind, 
throw the coins. Look up the 
hexagram in an / Ching table 
and read the text which accom- 
panies one of the 64 possible 
hexagrams. 

If you have thrown a six or 
nine read the text for those lines 
and then read the text for the 
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F/g, 3. Overall Program Flow- 
chart. 



changed hexagram, skipping 
the "lines" part. 

Electronic Throwing 

Another / Ching method uses 
50 thrown yarrow stalks— some- 
thing like "pick-up-sticks." By a 
complicated method of 
subtracting various combina- 
tions, six, seven, eight or nine 
are again yielded to develop the 
hexagram. 

After I was first introduced to 
tfie / Chmg in 1968, I tested its 
capabilities. I built electric coins 
for it and to test my device one 
person threw pennies while I 
threw the electronic version. To 
our surprise the answer to the 
same question came out the 
same with only one changing 
line. 

Later I gave it a real test, or so 
I thought, by asking a question 
of which it should have no 
knowledge. I asked, what is 



electricity? 1 questioned its ac- 
curacy no more when it came 
back with the hexagram for 
"thunder and lightning." 

When I got my first computer, 
a KIM-I, I wrote a coin-throwing 
version for it, a more tricky job in 
assembly language. But now, I 
have written a BASIC version for 
the TRS-80. It's less complicat- 
ed by comparison because the 
graphics are a whole new ball 
game. By following the flow 
charts and the Listing you can 
see how BASIC easily does what 
three coins and a table are 
meant to do. 

When I first wrote ttie pro- 
gram I considered incorporating 
the text. But its length is awe- 
some and by the time you load- 
ed the whole program, you could 
have gotten three coins out and 
have thrown two hexagrams and 
be starting on your third. 

The BASIC Program 

The present program loads in 
42 seconds. The overall flow 
chart is shown in Fig. 3. Lines 20 
and 30 of the Listing ask if you 
need instructions. These in- 
structions are combined in lines 
1000 to 1140. Then at 40 and 50 
you have the chance to write out 
your question. This helps to fo- 
cus your thoughts on it. 

At 60 we rewrite the question 
at the top of the screen to give 
more room to the hexagram 
graphics. From 1 1 to 290 we do 
all the program housework, 
defining the shapes of the lines; 
C is the change flag, while Y and 
YC start printing the graphics. 
The lines are made up of strings 
of the TRS-80 graphic symbols 
so they are written very quickly. 

In line 300 (see also Fig. 4) we 
set a loop for six lines, then in a 
sense, we want to "throw" three 
coins. What we actually want is 
the numbers six to nine. Here I 
could have used the computer's 
random number generator, but 
when we throw coins we shake 
them and throw them down at a 
time determined by one's own 
sense of "when." To re-create 
this outside influence, I set a 
loop at line 310 to 340 that 
counted from six to nine. The 
"throw" is determined by when 
you hit the space bar. L is that 
number. 



We want to save this total for 
later calculations, so we set up a 
little D list and print the first line 
number near the bottom of the 
screen at Y along with the string 
for that particular line. 

in line 380 we check for a 
changing line and set the flag if 
it was, then we decrement our 
print location and do it all over 
again. Simple. If you want com- 
plication you should have seen 
how this was done for the KlM-1 
display. 

The Change Flag 

At 410 we check to see if we 
had a change flag and if so, we 
can display a changed hex- 
agram. From 420 to 500 we dis- 
play the hexagram (see Fig. 5). 
We set a six count loop again at 
420 and then at 430 & 440 we 
check our little D list to see if the 
number was a six or nine and 
thisischanged to its opposite. A 
six or a nine must be indicated 
because in the text these lines 
are significant. For this reason 
we change the six or nine to a 
string which will be tacked on to 
the end of the line string when it 
is displayed. 
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Fig, 4. Throwing Three Coins. 



At 450 and 460 we get the 
seven or eight that's left and 
make N$ a space. In our later 
calculations we'll need these 
changed hexagram lines so we 
save them in a C list at 470. At 
480 we print the string again, de- 
crement our print location and 
do it again for the next five lines. 

To save the time of looking up 
the hexagram in a table which is 
at the rear of the book, we'll let 
the computer do it. Each hexa- 
gram has a number from one to 
64 and we have to glean that 
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Fig. 5. Displaying the Changed Hexagram. 
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The world's most popular microcomputer, with 16K of 
memory and Level 11 basic for only S750, complete 
with full 90 day Radio Shack warranty. 
We accept check, money order or phone orders with 
Visa or Master Charge. (Shipping costs added to 
charge orders). 

Disk drives, printers, peripherals, software & games. . . 
you name it, we've got it 
(both Radio Shack & other 
brands). Write or call for 
our complete price list. 




32 EAST MAIN • MILAN, MICHIGAN 48160 • (313) 439-1508 



ATTENTION TRS-80 OWNERS* 

For a limited time the C-1 case is still priced at $69.50 

At last' An attractive home for all of the parts ot your system— keyboard. 
video display, power supply, and, last but not least, the cassette. 

The TRS-80 performs as a computer — Now it can look like one. 




Classic black and silver color scheme to match your TRS-80' Now your 
system can be portable without dismantling. The cassette recorder can 
easily be used along side the case and then conveniently stored in the 
side opening without disconnecting. 

This introductory price of $69.50 will shortly be terminated as our dealer- 
stiips are set up. 

DEALER/DISTRIBUTOR INQUIRIES WELCOME. 



Send check or money order for $69 50 
plus $5.00 for shipping to- 

Michigan residsnts add 4% sales 
tax. Visa and Maslercharga accepted 
with signature, exp. dale, and number. 

' TRS-80 is a Product of Radio Shack 



2b. 
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^esianco 

Deorf'tmenI IB V 

V Box 307 • Un.on. Ml 49130 

Telephone (616) 641 S9i6 



Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired ol buying book after book an assembly 
language programming and stiil not knowing yout 
POP from your PUSH' 

REfVlsDFT proudly announces a more etti- 
cieni way, using your own TRS-80'" . to learn the 
tundamentais of assembly language programming 
--at YOUR pace and at YOUR convenience 
Our unique package, 'INTRODUCTION TO THS-80' 
ASSEMBLY PROGRAMMING '. will provide you wilh 
the following. 

• Ten 45-minute lessons on audio cassettes 

• A driver program to make your TRS-80* video 
monilor serve as a blackboard for the instructor. 

• A display program for eacfi lesson to provide 
Illustration and reinforcement tor what you are 
hearing. 

• A textbook on TRS-80'" Assembly Language 
Progiamming. 

• Slep-bystep dissection of complete and useful 
routines to lest memory and lo gain direct control 
over the keyboard, video monitor, and printer. 

• How to access and use powerful routines in your 
Level 11 ROM 

This course was developed and recorded by 
Joseph E Willis and is based on the successful 
series ol courses he has taught at Meta Technologies 
Corpoiation. the Radio Shack Computer Center, and 
other locations in Northern Oliio The minimum 
system required is a level II, 16K RAM 

REMASSEM-1 only $69.95 

REMsDFT. Inc. 

571 E. 185 St. 

Euclid, Ohio 44119 

(216)531-1338 




% 



IncluQe $1 50 lor stiippmQ and tianoiini) ""^ ^ 

Ohio residents add 5'/;% sales tai 

TRS-80* IS a trademark ol the Tandy Corp 



»29 



00 

1st 1,000 



PAID ORDERS 
PER PACKAGE 

ALL FOUR *99'«» 

SOPHISTICATED 

ACCOUNTING 

SOFTWARE 

OSBORNE & ASSOC. 
CBASIC, G/L, P/R, AR, AP 

(4 pkgs) 

CONVERSION — TRS-80 

East Coast Office 
(703) 573-7300 

West Coast Office 
(801) 225-0497 



FULL SERVICE 
ACCOUNTING & PROCESSING 

5423 Crows Nest Ct. ^,3: 
Fairfax, VA 22030 

M/C • VISA 

'Regular price $49/$196 
Media & Manual Separate 






Space battle game with three 

dimensional viewing screen. 

graphics &^ sound. 

The ultimate in space 

battle games for the 

Level 11 48Kdisk only. 

Requires one disk and 

is self loading. 



Money and cash orders sent 
out the same day. 



Fantastic Software 

3305 W. Spring Mt. Rd. 

Suite 49 ^324 

Las Vegas NV 89102 



^Reader Service— see page !47 
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number from the two lists D and 
C. 

A list of the numbers of the 
hexagrams were made in a cer- 
tain sequence as shown in the 



DATA statements from 620 to 
670. These numbers could be 
addressed or retrieved by know- 
ing if thelinewasayinorayang. 
If the line was a yang we add to- 



10 REM IHSTRUCTIONS AND QUESTION 

20 CLS:irjPUT"DO YOU WANT INSTRUCTIONS IY-N1";YS 

30 IF YS="y"THEN 1000 ELSE IF YS<>''N"THEN 20 

40 CLSi PRINT "WHAT IS YOUR QUESTIOK" i ■ 

50 INPUT QS 

60 CLS;PBINTQS 

110 CLEAR 60;DEFJNT Y ,C, D, I , L , J, A,T, H 

120 DIM C(6) 

130 DIM D161 

140 DIM LSt9) 

150 AS^CHRSa-ifl) 

160 BS=CHRSa62) 

170 CS=CHRS(166) 

180 d5=CHRS(136) 

190 ES=CHR$[1S7) 

260 PS=CHRS(132) 

210 GS-CHRS(128) 

220 HS=CHRS(174) 

23 LS(6)=AS+AS+AS+BS+CStDS+AS+AS+FS 

240 LS17)-A5*A$+ASTfiS+AS+A5+AS+AS+F5 

250 LS|8)=AS+A5+AS-tGS+GS+DS+AS+AS+FS 

26 LS19)-AS+AS+AS+11S + ES+AS+AS+AS+FS 

270 Y=768 

280 YC-788 

290 C=0 

300 FOR 1=1 TO 6 

310 FDR J-6 TO 9 

320 TS=IHKEYS;1F TS-" "THEN 350 

330 NEXT J 

34 GOTO 310 

350 L=J 

360 D[I)=L 

370 PRINTeY,I;" "jLSlL) ,- 

380 IE L=6 OR L=9 THEN C-1 

393 Y=Y-128 

400 NEXT I 

410 IF C-0 THEN 520 

420 EOR I-i TO 6 

430 IF DII)=6 THEN L=7:NS-STES(D{I) ) :G0TO 470 

440 IF D(Il-9 THEN L=8:N3=STRS|D|I)] :G0TO 470 

450 L=D|I) 

460 NS=" " 

470 CIII=L 

480 PRINT^YCLSILI :" ";NS 

490 YC-YC-128 

500 NEXT I 

520 A-1:T=0 

530 FOR 1^1 TO 6 

540 IF D(I)=6 OR DlII-8 THEN 560 

550 T-T+A 

560 A=A*2 

570 NEXT 1 

580 FOR 1=0 TO T 

5 90 READ H 

600 NEXT 1 

610 PRINT@902,H:EESTORE;GOTO 705 

620 DATA 2,24,7,19,15,36,46,11,16,51,40,54 

630 DATA 62,55,32,34,8,3,29,60,39,63,48,5 

640 DATA 45,17,47,58,31,49,28,43,23,27,4,41 

650 DATA 52,22,18,26,35,21,64,38,56,30,50,14 

660 DATA 26,42,59,61,53,37,57,9,12,25,6 

670 DATA 10,33,13,44,1 

680 PRINT" PRE S a SPACE BAB TO DO ANOTHER HEXAGRAM"; 

690 rS=INKEYS:IF TS=" " THEN 40 ELSE 690 

705 IF C=0 THEN 680 

710 A=1:T=0 

720 FOR 1=1 TO 6 

730 IF CII)=8 THEN 750 



740 


T=T+A 


IbUl 


A=A*2 


/60 


NEXT I 


1 1^ 


FOR I=0TO 


/K0 


READ H 


/9H 


NEXT I 


800 


PR1NT@913 


H10 


RESTORE 


820 


GOTO 6 80 



1000 PRINT:PRINT"TO DETERMINE YOUR I CHING HEXAGRAM YOU WILL HAVE 

TO THROW A" 
1010 PRINT"SYMB0L1C COIN iJIX TIMES. BEFORE YOU THROW THE COIN YO 

U MUST" 
1020 PRINT"THINK OF A QUESTION. WRITE IT ON THE SCREEN, (ONE LIN 

E" 
1030 PRINT"PLEASE) , THEN PRESS THE SPACE BAH FOR EACH HEXAGRAM LI 

NE WHILE" 
1040 PRINT"YOU ARE THINKING OF THE QUESTION. AFTER SIX LINES ARE 

1050 PRINT"COMPLETED THE NUMBER OF YOUR HEXAGRAM WILL BE DISPLAYE 

D." 
1060 PRINT"1F ANY LINE YOU THREW WAS A CHANGING LINE, THEN A CHAN 

GED" 
1070 PRINT"HEXAGRAM HILL BE DISPLAYED ALONG WITH ITS NUMBER." 
1080 PRINT"AFTER YOU LOOK UP YOUR HEXAGRAM AND READ THE TEXT, ' TH 

E" 
1090 PRINT "JUDGMENT' AND 'THE IMAGE', THEN THE CHANGING LINES IN 

YOUR" 
1100 PRINT"HEXAGRAM WILL DETERMINE WHAT SECTION OF 'THE LINES' PA 

RT YOU" 
1110 PBINT"READ. THEN YOU CAN LOOK UP THE CHANGED HEXAGRAM, ONLY 

THIS" 
1120 PR1NT"TIME NO LINES ARE READ." 
1130 IHPUT"ARE YOU READY (Y1";YS 
1140 IF YE-"Y"THEN 40 ELSE GOTO 1130 



Program Listing 



gather a multiple of 2. We start 
in 520 to initialize our variables 
and in 530 set another count to 
six loop (Fig. 6}. 

If the lines are yins we skip 
the count in 540. For instance, if 
all the lines were yin, the 
counter T remains 0, then in 
lines 580 to 600 we only read the 
first number, two, which is the 
correct number for the hexa- 
gram consisting of all yin lines. 

However, if the first line was a 
yang line, then we add T and A, 
in this first case a "1", and then 
double A as shown in lines 550 
and 560- This whole procedure 
repeats six times adding and 
doubling for yang lines so that T 
can point to the hexagram 
number. Then in 610 we print the 
number under the displayed 
hexagram, in 705 we go through 
the same procedure for the 
changed hexagram in list C. 

Finally, in 680 and 690 you 



1 




GET LINE # 
IN LIST 








ADD 

T AND A 

(5501 




1 


— 


DOUBLE 

a 

(5601 




LOOK UP 
HEI # IN 
TABLE (5 901 




have a chance to do another 
hexagram by hitting the space 
bar again. 

From yarrow stalks to BASIC 
programming and TRS-80 graph- 
ics, the / Ching knows the an- 
swer to all of your questions. 1 
hope you have fun with the pro- 
gram and that you now know a 
little more about this fascinat- 
ing book. May the changes you 
learn about be always for the 
better. ■ 



References: 

/ Cliing, Richard Wilhelm/Cary F. 

Baynes, Princetown University 

Press. 

/ Cliing. Raymond Van Over, 

Mentor. 

EigtJt Lecturers on the I Cliing, 

Hellmut Wilhelm, Princeton 

University Press. 

The I Ching and You, Diana Pfar- 

ington Hook, E, P. Dutton. 



GET LINE # 
IN LIST 

(r20-7io) 




Aao 

T ilD 
1740) 


A 




DOUBL 
17501 


E 




Fig. 6. Computing the Number of the Hexagram. 
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INTERHATIONAL ENTERPRISES INC 

STATEMENT OF PROFIT/LOSS 
FOB PERIOD ENDING JANUARY 197IJ 

CUPHENI PEHIOD veai 



Liaoa SAif 5 



7 57;n igOOOCB 



GPA a OIL Puf^CH4gE& 
GROSS PROFIT 



INTEHNATIOrjAL ENTERPRISeS INC. 
BALANCE SHEET 
JANUARY 197a 
ASSETS 
CASH ON HAND '40 1 1CR 

CASH IN 6ANK 2130 S3 

INVENTORY OF PARTS 1 119 00 

EQUIPMENT 4111^0 

ACCRUEDDEPRECIATION 00 

BUSINESS VEHICLES 00 

BUSINESS AIRCRAFT 20O0O 00 

ACCRUED DEPRECIATION 643 Q7CR 

METER DEPOSITS 00 

TOTAL ASSETS 



We have a complete 
selection ol disk and 
casseite based business 
soltware (or your PET 
and TRS-SO computers. 
Call or write lot free 
brochure. 

201 Worley Rd 

De!<ler. Mo. 63841 

(314)624-7611 



Dealer inquiries inuiled. 



INTERNATIONAL ENTERPRISES INC 

JOURNAL 

JANUARY 1978 

r SUE DESCniPIION PEF* DOTt AMOUNT 



Mi 00 JOUONALEtJI 

30i (» 

30! 00 JOUFINALEHT 



im J36! 

i;'8 SSI S 

U7S 4^0 

1(78 210 



M3 00 PAFTS 



JOUBNAL EUTBV OOO 1/78 SaiO 
000 1.78 140 

J 00 UN A L EN TOY OOO 1/78 JSS5 



INTERNATIONAL ENIERPRISES INC 
TRIAL BALANCE 
JANUARY 1976 



00 AOCESSOPIES 
OO OUTSIDE WORK 



mS-80 MODEL tl USERS — 




Preserve — Protect — Display 

ydur equipmeni with 

CRYSTAL CLEAR 
PLASTIC COVERS 

• Keyboaidt CRT 114.95 ea 

• Line printer H4.5S «j 

ply^ i 1 .50 posioge eoch 
(IddJono rejidemi a<JO iX iolei tox) 

Iniioduciory Often Ouy botti covers b save 



Combinotion price $34.95 
including postage 



Crown Plastic Co. ;^160 ^^Sl 

3746 N. College 317-925-5566.^ 
[ndmnapolis, IN 46225 



alphanctics 

TRS-80© "'" 
TAPE DIGITIZER 



Used by the 
U.S. Coast 
Guard and 
U.S. Navy 



-ELKKINATES CASSETTE 
LOADING AND COPYING 
PROBLEMS . . EVEN 
"SYSTEM" TAPES! 

-MAKES TAPE PflOQflAM 
LOADING PRACTICALLY IN 
DEPENDENT OF VOLUME 
CONTROL SETTING! 

-MAKES PERFECT COPIES 
OF ANY TAPE DIGITALLY 
WITHOUT USING COM- 
PUTER. DIGITIZED TO EX 
ACT REPLICA OF TR-acCi 
SIGNAL WHILE REMOVING 
HUM, NOISE AND OTHER 
MINOR OnOPOUTS 

-A.C. POWERED NO BAT- 
TERIES CASSETTE SWITCH 
ALLOWS MANUAL OR COM- 
PUTER CONTROL OF CAS- 
SETTE RECORDER 

-FEED YOUR CASSETTE TO 
THE TAPE DIGITIZER AND 
FEED YOUR COMPUTER 
THE EXACT DIGITAL 
WAVEFORM THE TflS-BO 
GAVE TO THE TAPE WHILE 
MAKING A COPY AT THE 
SAME TIME! 

•THE TAPE DIOmzEBIS 
COMPLETELY COMPATIBLE 
WtTH LEVEL I AND II 



MSO AVAILABLE WIIHOUI 

CASSEJTt REMOTE 

ON/Olh SWirvH 



$54.95 




$59.95 



tOF ijOOn f/ioom^ 



CV-IIH/tTt:eDTO/ll ulir 



24-hour phone 
(707) 887-7237 



< 



KGS-80 



> 




KOCIYOSHfi 



A TRS-80 WORD PROCESSING 
SYSTEM FOR LESS THAN $600 

(If you own IHM Seleclrii or equivalent ] 

Turn your typewriter arnd TRS-80 into 
a new word processing system with a 
new device, the "KGS-80". 

• l^lug in compatible with TRS-80 

• No mechanical modification to the type 
writer 

• Can be installed in 5 seconds. 

• Software, a versatile Simple Letterwnter, in- 
cluded. 



179 Riveredge Rd. Tenafly NJ 07670 (201) 569-8769 -^^^ 

DEALfcK INQUIRlfcS INVITED 



WHO NEEDS IT? 

Let s fate it — diajinostit software is probably imt at the 
top of your shopping list. After all, >()ur system probably 
wiirks OK mii.sl of the timi;. Rut if you want to find the 
eauscof ihatoctasional dropped liil orint's«'d up disk file, 
or il vim just want to knuw tor sure that voiir s\steiii is 
nock SOLlt:), you lU'ed uood di^eiioslie soll^ar^. 



FLOPPY IMSK 131 AGNOSTIC— Tests every sector on 
eNcr)' track on 1 to 4 drives, 35 or 4f) (rack; checks drive 
motor speed; checks switches and index ptilse sensor; 3 
stepping rates; tests drive- to- drive compatibility; more! 
Error mehsages and an error summary are printed out lor 
each drive. Thejaimary i9H0 OCTUC .Vcu v/cf/tT ealUtl 
this program "a .significant step toward niakins lJi.sk 
users sell suflieieni in diaj;inisin!; anil eiimctins; disk er- 



MKMOHY DIACNOSTIC-In addition to the usual 
write'read tests, this diagnostic cheeks refresh and 
\irilies that each memory address is unii|ue. The "M-l 
W onn" test esecnti^ a block of machine eode from each 

address. It vour nienior\ passi'\ lliis di<Li;]iosLi( it is 
SOLIIl! 

Both rn'.K hirie-l,int!uage diagnosin s jre supplied 
together on diskette lor Ihp, Model ITRS-SU' with instruc- 
tions tor use and hints to troubleshooting 

PRICE: $24.95 

CA n'^iilriih iru-huh-li', s(i/r'\ fro. .\dd MMIiV II 




THE MICRO CLINIC 

17375 Hnxikhiii-st #114 >^2M 
FiHintain Valley, CA 92708 

■'l')iS.MI IS a i-e(!ist<Ted trademark lit Tandv Crirp. 



SUPERIOR SOFTWARE PACKAGES 

FORTHE TDO on 

DISK BASED TRS"O0 

THE •$79.95 

SMART TERMINAL 

• TRUE BREAK KEY 

• AUTO REPEAT KEYS 

• PROGRAMMABLE SOFT' KEYS 

• MULTIPAGE SCROLLING DISPLAY 

• FULLY CONFIGURED FROM KEYBOARD 

• TRANSMIT SCREEN. PRINT SCREEN 

• TRANSMIT FILE, RECEIVE S, CREATE 
DISK FILE 

• FLEXIBLE I/O LINKAGE CAPABILITY 

• MULTI PROTOCOL CAPABILITY 



SPOOL-80 



$39.95 



PRINT YOUR LISTINGS WHILE RUN- 
NING OTHER PROGRAMS 



DISPLAY 



$49.95 



FULLY SCROLLING DISPLAY DRIVER 
AND HIGH PERFORMANCE KEYBOARD 
DRIVER USED IN THE SMART TERMINAL 
AVAILABLE SEPARATELY. 



MICRON, INC. 

10045 Waterford Dr. 
Ellicott City, MD21 043 



1^73 



(301)461-2721 
MCfVISA accepted 



•Reader Service — see page 147 
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STYLE 



Use this software to stop 

unauthorized ''breathing'' of your programs. 



Break Disable 



Jim Rastin 
316 Briarhill Ave. 
London, Ontario 
CANADA N5Y 1N8 



Have you ever accidentally 
pressed the break key dur- 
ing the execution of a BASIC 
program and fumed because 
you lost your place? 

Have you ever had someone 
play with your TRS-80 during a 
demonstration and had to post 
a sign DO NOT TOUCH BREAK 
KEY? 

I have, and to prevent this 
from happening, I wrote this pro- 
gram. 

Although after pressing 



BREAK you can type "CONT" 
without losing your variables, 
you may lose the display unless 
you rerun the program. But this 
costs you your variables! My 
program eliminates the effect of 
the BREAK key when running a 
program. 

Listing 1 is written in BASIC 
although w/hen executed it 
POKES into memory a machine 
language program (see Listing 
2). But you need not know ma- 
chine language to use it. 

Reserve 32742 when you first 
power up and see MEMORY 
SIZE. 

The program has some built- 
in advantages. It acts as a de- 
bounce program. Typing POKE 
32763, 201 restores the break 
key so that if you use auto 
numbering to write a program, 



10 CLS. FOB X ^ 32742 TO 32767 

20 BEAD A 

30 POKE X,A: NEXT 

40 POKE 16526,231: POKE 16527,127: X ^USR(O) 

50 PRINT (?i. 512,"DEBOUNCE OPERATIONAL WITHOUT BREAK KEY"; 

60 F0RX = 1 TO 1000: NEXT 

70 NEW 

80 DATA 33, 238, 127, 34, 23, 64, 201. 205, 227, 3, 103. 1 , 50, 0. 205, 96, 0. 124, 254, 1, 
192.62,0,201,0,0 



Program Listing 1. BASIC 



LOG. 


OP CODE 


MNEMONIC 


COMMENT 


7FE7 


21 EE 7F 


LD HL, 7FEE 


;KEYBOAR0 DRIVER ADD. 


7FEA 


22 16 40 


LD(4016),HL 




7FED 


C9 


BET 




7FEE 


CD E3 03 


CALL 03E3H 


.CALL KEYBOARD DR 


7FF1 


67 


LD H,A 


.SAVE A 


7FF2 


01 50 00 


LD BC.0050 


iDEBOUNCE DELAY 


7FF5 


CD 60 00 


CALL 0060 H 




7FF8 


70 


LD A,H 


;ReSTOREA 


7FF9 


FE 01 


CP 1 


;COMPABE BBEAK 


7FFB 


CO 


RET NZ 


;RET UNLESS BREAK 


7FFC 


3E 00 


LD A,0 


;PUTOIN BREAK 


7FFE 


eg 


RET 


, RETURN 


7FFF 


00 


NOP 






Program 


Listing 2. Machine 


Language 



you may BREAK out of this 
mode. 

Type POKE 32763, 192 and the 
BREAK key no longer functions. 

Typing POKE 32756, 1 to 255 
will slow computer operation. 
The higher the number POKEd 
into 32756, the slower the 
TRS-80 functions, as it delays 
for every execution performed. 
For example, if you POKE 32756 
with 255 it takes a long time to 
enter any letter from the key- 
board. It also runs your pro- 
grams very slowly. 

Typing POKE 32756, returns 
your TRS-80 to normal speed. 
{The slow speed works great for 
debugging programs or watch- 



ing a list appear on the screen.) 
You can either run the pro- 
gram as shown and GLOAD your 
programs, or you can type the 
program omitting lines 50, 60 
and 70 and place it in front of 
your own. It is then incorporated 
into one program containing al! 
the features mentioned above. 

You can vary the amount of 
time the debounce delay takes 
by typing POKE 32755, one to 
200. The program first loads this 
memory location with 50. One 
wordof caution— don't load this 
memory location with less than 
two. At a setting of less than ten 
the debounce won't be very ef- 
fective. ■ 
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S^'UP TO 25% OFF 

YOUR OWN TRS-80 SYSTEM AT TREMENDOUS SAVINGS 





ITEM 

Level II— 4k 
Level M— 16k 
Expansion Interface 

Mini Disk Driva 
Centtonics 779 Printw 
Ontfonics 101 Pnntef 
AniKJex DP-8000 Printer 

Memory Kit -<16K)(nfcf insial 

Verbatim Diskettes ea 

3 

10 

C-10 Cassettes ^ 

25 

Paper (9"j x 11 (anfoid 

3500 sheets) 



REG. 

PRICE 

$619.00 
$849.00 
$299.00 

$ 495 00 
$1599 00 
$1596 00 
$1295 00 



149 00 

5 95 

17 89 

59 00 

4 95 

24 75 



OUR 
PRICE 

$575.70 
$789.60 
$278.00 

$365 00 
$1175,00 
$1400 00 
$ 99500 
$ 9600 
S 4 95 
$ 1200 
$ 3700 
S 450 
$ 18 75 



$35 00 $ 29.95 



NOW OPEN 

VR DATA'S Computer 
Repair Center 



Visit our new Store at 20th & Walnut, Phila,, PA 

$3626.00 



TRS— 60 MODEL 11 

• 64K RAM 

• V^ MEG DISK 

VR Data's 1st Driv* $899.00 

ADDITIONAL DISK DRIVE (1ST) $1069 50 

ADDITIONAL DISK DRIVE (2ND + 3RD) S 558 00 

BUSINESS SOFTWARE 

Model II Model I 

Payroll $199,00 $99.00 

General LEDGER $199,00 $149,00 

(inc, AP, AR, etc) 
DATA BASE 
MANAGEMENT 

SYSTEM $249,00 $149.00 

Documentation only (each Package) $5,00 

GENERAL SOFTWARE 



NEW DOS+ 



Electric Pencil 



40 tk, 

$110,00 

Disk 

$150,00 



35 tk, 

$99,00 

Tape 

$99,00 

Upper/Lower Case Conversion 

Tape $19,95 Disk $24,95 
Diagnostics Tape/Disk $34,55 
Household Inventory 
Loan Amortization Schedule 



Disk $19,95 

$19,95 



APRIL SPECIAL 

Good Until 4 30 80 



Centronics 730 
Centronics 737 



$695.00 

$950.00 



NEW SOFTWARE 

TPM- Model I& II 

CPM Compatible 

Z80 Operating System 

10 Meg Removable Disk for 

Mod II 

Send for free catalog 



There are new developmenti every day — 
write or call for the latest infortnation. 



.^31 



777 Hendenon BoulevanI N-6 
Fokroft lndu»trtal Park 
Folcmft PA 19032 

(215)461-5300 



m 



TOLL FREE 

1-(800) 345-8102 



Orders only! 



■^ FOREIGN and DOMESTIC DISTRIBUTORSHIPS AV AILABLE . 

rttfiiiiiiiifiiTifiiiiiiiiiirm 




New from 




CREATE SUPERIOR GRAPHICS 
& ANIMATION 

Master Graphics Reference, Displays TRS-80 keyboard 
and graphics (characters in ah horizontal and vertical 
combinations Thousands of shapes, screened 63 at a 
time. Or instantly access a specific group. People, animal, 
vehicle, symbol shapes you didn't believe v/ere there. 
Ideal reference lor animation, graphic ideas, symbology 

FLY, SHOOT, ~ 

CHASE, TEE UP 

Sumfun One, tight great games in one extended pro 

gram, lake off and land from "Garner," Set "Chopper" 

down safely with engine out Shoot 'em down m "Jet 

Attack." Nel "Butterfly" in a wild chase Play "Front 9" 

mmi-golt. Hit "Fracshot"s split-second target. All genuine 

challenges that sharpen your skill, hold your interest 

for hundreds of plays. Also "Dead Heat" (horse race). 

"Hotsy-Totsy" (number search) for family & party fun. 

Programmed in BASIC for TRS-80 Lev, II, 16K, 

Double-load no rewind format. Top quality digital 

cassettes, double wide pads, stainless pins, 

nylon rollers, screw shells. Individually lab 

checked Cased, 

Each, $16.50 Both, $30,00 

II dissatisfied, return for full refund. 

Florida residents add 4% sales tax. 

Order today from 




Suite 406 • 537 S, Sequoia Drive 
West Palm Beach, FL 33401 



^217 



TRS-80 MODEL II 

rruU'SMOiiai Soltwdri' NOW AVAILABLt' 
WORD PROCESSING: Complete ediliny Ldpdbilitv m- 
( ludifi^ tenter, right, lert or lull line luslifictition, labs, 
rtiiiryin, lenyth & width control Lines sutomalK ally 
oVLTllow Irani line to line All file spec ifical ions stored 
on disk Passwords used All printer Iriituri's used (per 
vour printerl. Auto insertion ot naines/date eti. from 
other ddtd filets) Disk inde* mamtiiined for tile con- 
tii)l Vou can display index: date/time trealed, changed 
or used S, brief description System LOG used t-ilescan 
be on other disk drives Estract & build, A cham of dif- 
ferent files can be printed along with multi-copy con- 
trol & auto insertion Interfacing with other systems fof 
aul(j-ddtd easily done 

Reyuires b4K & printer of your i Hon e. 
Uofumentation * JU) 00 Totdl - i2y9 tX) 

BASIC CROSS REFERENCE: Prepares a listing ot your 
HASIL program Hcdding oontdtns proytam name, 
date, time, S. page #. All REM' statements punt 
L LONG A 1 1 D & are easy to spot The cross-ieterenn' 
report is then printed. It shows you at a GEANCE what 
line#'s within your program are referenced & where, all 
V .in able names used & whets' Know what is available 
t ind DhAD spots We wrote thi^ for ourselves you 
( .111 use it too . . I 

Documentation * t10,yu lotal = i'")4 9y 

DISK SORT: Sorts thousands ot random file' records 
Capacity is dependent on your disk space. Efficient use 
of strings. Sorts any data area from 1 thru 2bS con- 
tiguous bytes withm any part of your record Specifica- 
tions are input using the question & answer method 
I hey can be stored & used automatically in your sys- 
lem |oli stream ot you can orip-stiot sort. Input files are 
not clobbered by the sort All stored specs can be dts- 
[>l.ncd, printed or changed 

Single or multifjlc drives & bAK required 

DocumenlaLion ' $10 00 Total = $b9 9H 

COMING SOON: General Ledger, Accounts Reccii 
able.'Pavable Inventory C'onlrol & more 
CUSTOM SYSTEMS: ll you have a spe. uil need send us 
,1 letter We (an do It 

ANADEX PRINTERS. .DP-9500/9501 $1,695.00 NEW! 
Send lor documentali-on & order form. 
GOOD-LVDDON Data Systetns 
r>4ab Rivenide Dr., Chino. CA yi7KJ ^^218 
'Di-ductible on soflivare purchases, 

IKS-30 js a rcRfsk'recf Ifjdemjrk ot T.Tndy Cijtp 



QUALITY TRS-80 SOfTWARE 



KEYWORD Indexing System 

V '.cries iii programs ihjil hIII •^nult a data flk im ill.'ic, tiullil na 

iiid;\oiall iii:i:urri:iitts i)i ■■Kc>«iir(ls" In tht H:\lofiiitilalafik- 

and aUiiH linjuirics or scarthi:s Inlii the flk usiiitl llic imlnwd 

koHiird^, ITk' s>sltiii fcalunjsi 

*ik\llik' rtiiird lt:iit!th> hMIi liicalli'ii |><ilTitcr> 

•diklioii III mm kcjitordh iroiii liidi;\ h' 

•"and" "i.r" "iii.t" li^k ier im|iiirits 

•intcrfait iiir ustr "rllttii iin|uiric>. 

M.lWOUt) IM)};\- 2di-c }2k DOS 



. s>.Mii 



.isteill 
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REVIEW 



Fancy a change from Microsoft BASIC? Try CBASIC. 



CBASIC Review 



Ken Knecht 

1340 W. 3rd St. #130 

UmaAZ 85364 



The CP/M disk operating sys- 
tem by Digital Research has 
been around for a long time (in 
microcomputer terms) and has 
been adapted to many systems. 
Several are now available for the 
TRS-80, I chose the one 
by Don French's FMG Corpora- 
tion. French is the originator of 
the computer project at Radio 
Shack. 

The system costs $249 and 
has the CP/M disk and CBASIC. I 
received the package about five 
days after I phoned in the order 
via UPS. It consisted of six man- 
uals and two disks. 

The CBASIC Version 01 BASIC 

As I suspect a lot of the read- 
ers program in BASIC I'll give a 
rundown of CBASIC first. 

CBASIC is a compiled BASIC, 
not interpreted and this has its 
advantages. First, you use the 
CP/M editor to write the program 
which lets you create a BASIC 
source code file and edits it as 
necessary. No line numbers are 
needed in CBASIC. You need a 
line number only as a label for a 
GOTO, GOSUB, etc. To continue 
a source code line on the next 
line use a line feed (i) as in 
TRS-80 DISK BASIC. Unfortu- 
nately, since there are no line 
numbers you almost have to in- 
dent continued lines to quickly 
tell if they are continued lines or 
a nev^ line. The ENTER key ends 
a line. 

The statement keywords are 



mostly the same as those in 
TRS-80 DISK BASIC with a fev*/ 
exceptions. 

An IF statement must be en- 
tered first on a line (no nested 
IF's). You can't have an ELSE af- 
ter an IF to a line number. You 
can use ELSE if the IF does any- 
thing else, such as set a variable 
value. 

You have to DIM every array; 
there is no default. Hovi/ever, 
you can re-DIM an existing array 
without getting an error. It is ad- 
visable to null out a string array 
to save memory space. There 
are no LPRINTS in CBASIC. To 
print a line, enter the statement 
LPRINTER followed by an op- 
tional line width. To return to the 
display insert the statement 
CONSOLE. INPUT statement 
prompts after an LPRINTER still 
go to the display. 

The MID$( ) statement to the 
left of the equals sign is not in 
CBASIC, but still exists to the 
right of the equal sign. I'll miss 
that. 

INSTR( ) is MATCH( ). NO 
STRING${ ) statement. I'll miss 
that too. MEMORY SIZE is 
SAVEMEM and can automati- 
cally load a file. USR is CALL. 
The CALL must address the ad- 
dress of the machine language 
routine. 

CBASIC has only integer and 
real numbers. Real numbers 
have 14 digits of precision. The 
first 31 aiphanumerics of a vari- 
able are significant. This per- 
mits long variable names w/ith 
the first two characters the 
same as another. Very handy for 
self-documentation in a pro- 
gram. 

CBASIC has no graphics and 
is very fussy about the dif- 
ference between integers and 



real numbers. You must be con- 
sistent. 

New Statements 

Let's take a look at the CBA- 
SIC statements not in TRS-80 
BASIC. 

The CHAIN statement lets 
you run other programs in the 
course of a CBASIC program. 
Variables can be carried from 
program to program with the 
COMMON statement. Begin- 
ning to sound like FORTRAN? 
You can write a program con- 
sisting of a number of other pro- 
grams (or modules) with vari- 
ables transferred through the 
COMMON statement. This, if or- 
ganized properly will give you 
the equivalent of local and glob- 
al variables. Very useful. There 
are a few "gotcha's" involved in 
this; belter read the manual. 

XOR is included in the state- 
ments, along with the usual 
NOT, AND, and OR. A WHILE 
statement is included. TAB 
statements are only limited by 
the console or line printer width. 

A CONCHAR% statement 
gets a character from the key- 
board and converts it to ASCII — 
like INSTRINGS in TRS. FLOAT 
(X%) converts X% to a real num- 
ber. UCASE$(A$) converts the 
characters in A$ to uppercase. 
SADD%(A$) returns the address 
of the string A$. This could be 
useful to find the addresses of 
strings for a machine language 
sort program. Maybe you have 
some better ideas. 

The user defined function 
DEF FN . . . can have several 
lines, ended with a FEND. This is 
not normally found in a Micro- 
soft BASIC. PRINT USING is 
present with a few interesting 
variants. 



CBASIC Disk Operations 

Now to the disk file state- 
ments. Incidently, there are no 
cassette file statements in this 
BASIC. 1 like the CBASIC files 
better. The variable record 
lengths save a lot of program- 
ming. There are also fewer state- 
ments to remember. FIELD, 
LSET, RSET, MKS$, CVS, GET 
and PUT do not exist. 

Files can have fixed record 
lengths or dynamic. RECLsetsa 
record length. Thus: 

CREATE "FILENAME" RECL 20 AS 
1:CL0SE1 

creates a file "FILENAME" with 
a record length of 20 as file 1 
with a reserved space of 128 
bytes. To open the file use: 

OPEN "FILENAME" RECL 30 AS 3 

Note the file number can be 
different. 

Random files must use the 
RECL length option. RECL can 
also be used forsequential files, 
but is not required. Up to 20 files 
can be active at one time with- 
out limitation on record length. 

The statement: 

FILES "FILENAME" RECL 15 AS 4 

opens the file and creates it if it 
does not exist on the disk. 
CLOSE 1 closes file 1. There is 
no all inclusive CLOSE as in 
TRS-80 DISK BASIC. Each file 
must be closed by number. Clos- 
ing a nonexistent file gets you 
an error. 

In random files the RECL 
takes the place of the FIELD 
statements. As long as the vari- 
ables entered into the file (nu- 
meric or string) fit in the record 
length there are no problems. 
You can store formatted state- 
ments, like PRINT USING, as 
random or sequential. There are 
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many options, see the manual 
for details. 

CBASIC Advantage 

Records of varying lengths 
are the great advantage of the 
CBASIC file system. This saves 
the complicated stepping 
through the 255 byte TRS-80 
DISK BASIC record to find the 
record you want or an empty rec- 
ord. This can also eliminate nu- 
merous possible mistakes. It is 
also nice to be able to store nu- 
meric data in a file vt/ithout hav- 
ing to convert it to string vwith 
STR$( ) or MKS$( ). You don't 
even have to remember hpvi/ you 
stored it, just read it back as real 
or integer. This eliminates get- 
ting back a string of graphic 
symbols w/hen you expected a 
number. 

In CBASIC you can also ap- 
pend data to a sequential file us- 
ing PRINT # X at the end of the 
file. In TRSDOS 2.1 the APPEND 
doesn't work. If you remove a 
disk and replace it with another 
in CBASIC you have to use the 
statement INITIALIZE after 
each disk change. You can 
DELETE a file in CBASIC as well 
as RENAME a file. This is not 
possible in TRS-80 DISK BASIC. 
You can use KILL in TRSDOS 
BASIC but it doesn't always 
work. 

The second major advantage 
of CBASIC is its compiler, which 
catches all the syntax errors for 
you. You can correct errors be- 
fore you run the program. In 
CBASIC writing a long program 
in modules and testing them in- 
dividually is the best method. Of 
course, it isn't easy to write pro- 
grams in self-supporting mod- 
ules. At least not for me. A %IN- 
CLUDE statement can be used 
in the program to add other sub- 
programs when compiling. This 
makes programming THE CP/M 
EDITOR in modules simple. 

Some Disadvantages 

I mentioned earlier how easy 
it is to put data into a file without 
a FIELD statement. However, in 
CBASIC the data takes up more 
room. To use the example of 
storing a part number (5 char- 
acter string) and a quantity 
(integer), in TRS-80 DISK BASIC 
this takes up only 7 bytes, 5 for 



the part number and 2 for the in- 
teger. In CBASIC you use 15 

bytes: 

"A1000", 24150 LF en 

Note the extra quotes, the 
comma, 3 extra bytes for the in- 
teger, and two bytes of the line 
feed, carriage return. In longer 
records the penalty is not so 
great, but no matter how you 
look at it, CBASIC uses more 
disk space. 

The ease of accessing data 
from the variable file lengths far 
outweighs this disadvantage. 
You can't believe how often this 
eliminates program bugs until 
you try it. These variable file 
lengths can save space too, if 
the subrecord length is not a 
multiple of 255. You be the 
judge. 

Changing a CBASIC program 
requires that you edit the source 
code {call the editor and load the 
file into memory), recompile the 
program, and run it again, usual- 
ly several disk changes in a long 
program and this, too, is a disad- 
vantage. Neither can you break 
into a program while it's running 
to see what's in the variables or 
throw in a TRON. You have to 
TRACE function, but it isn't 
quite as easy to use. If the pro- 
gram crashes, it's back to the 
editor for you and another com- 
pile to print variables. 

CP/M Disk Operations 

What about the CP/M DOS? A 
versatile system and fairly easy 
to iearn, CP/M DOS includes 
many more options than 
TRSDOS. Much information on 
how to customize CP/M for your 
system is found in two of the 
manuals, but I found them heavy 
going. 

The CP/M DOS is a powerful 
system and once you learn all 
the features it rivals a large com- 
puter's operating system. The 
beauty of the system is its effec- 
tiveness at the beginner's level, 
while challenging the ex- 
perienced user. If you are like 
me, you have to read the 
manual, work with the system, 
read the manual again and work 
with the system, etc., until the 
whole manual makes sense. 
Then you've arrived! All you 
have to do is remember it. 

Control P prints any further in- 



formation typed to the display. 
Another control P will stop the 
line printer echo. Thus you can 
print the directory, etc. with this 
option. 

The TYPE command lists the 
contents of any file. STAT and 
DIR do what FREE and DIR do in 
TRSDOS. The PIP command in 
CP/M moves any file from disk to 
disk or to the line printer. ERA is 
the equivalent of KILL in 
TRSDOS; REN the equivalent of 
RENAME. 

In CP/M the ERA has many op- 
tions. You have a FORMAT in 
this version of CP/M, and PIP 
provides the same function as 
BACKUP. To move the CP/M 
DOS from disk to disk takes two 
commands, MOVCPM and 
SYSGEN. MOVCPM also allows 
you to reconfigure CP/M to a dif- 
ferent memory size. This is not 
needed for TRSDOS. 

Information about am- 
biguous file names found in the 
CP/M manual is useful to the ex- 
perienced programmers. I use a 
few of them and expect to 
employ this feature more as 1 
grow accustomed to the sys- 
tem. 

The SAVE command moves 
any number of 256 byte blocks 
of data from memory to the disk. 
DUMP prints the contents of any 
file in HEX, LOAD converts the 
assembler output file (object 
code) into a command file. A 
command file runs by typing its 
name in answer to the DOS 
prompt. It's simple to write your 
own command programs. 

Three of the CP/M programs 
deserve a more detailed descrip- 
tion, the editor for example. The 
editor writes the source code for 
the assembler, CBASIC, and to 
write ASCII files, such as data 
for a word processor. Saving 
and loading program files is 
simple and the editor maintains 
the previous version in a backup 
file in case you really mess up 
the editing or delete parts of the 
file to make a module. 

The actual editing is difficult, 
controlled by many commands. 
I'm sure it will be a good editor 
once 1 fully understand the com- 
mands. 

I miss the TRS-80 editor 
though, it did a lot of things for 
you automatically that the CP/M 



editor requires you to do 
manually. For example, when 
moving to a specific point in a 
line (S in TRS; P in CP/M), the 
TRS-80 editor prints out the part 
of the line passed over. The 
CP/M editor doesn't, unless you 
ask for it (OT). If you erased the 
end of a line in TRS-80 (H com- 
mand), you retained the CR LF. 
In CP/M the K command also 
erases the CR LF so the next line 
is tacked onto your edit point. 

But there are many advan- 
tages to the CP/M editor. You 
can find a given group of alpha- 
numerics anywhere in the pro- 
gram on any line with a single 
command. You can search for 
every occurrence of a specific 
group of alphanumerics and re- 
place it with another group.' ..^ - 

The CP/M Assembler and 
DEBUG 

The assembler is an 8080, not 
a Z-80. I generally have trouble 
with assemblers but this one 
works well and is easy to use. It 
has the usual options, pseudo- 
ops, and rules for syntax. 

The DDT is a debugger with 
many useful features, it re- 
places the TRSDOS program 
DISKDUMP, placing a named 
file into memory and reading it 
out in blocks, in HEX and ASCII. 
You can input an assembly 
language program with ab- 
solute addresses and it assem- 
bles it for you. 

It performs the traditional 
debug feat of running a program 
from any address and inserting 
breakpoints. DDT also disas- 
sembles a program in part or en- 
tirely. You can examine and 
change individual memory ad- 
dresses and the CPU registers. 
DDT also prints addresses as it 
traces a program. 

The New User Tries It Out 

When I first got the system I 
tried to copy the CP/M and 
CBASIC disks I had received for 
safety's sake. I followed the 
directions, using a newly de- 
gaused diskette, but the files 
wouldn't move. After trying 
several disks and drives I for- 
matted a disk with TRSDOS and 
used it for the blank. The pro- 
gram went through the motions, 
but the moved files didn't run. I 
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was getting warmer. I re- 
searched the file directory and 
found tfie answer: FORMAT! 
This program was not men- 
tioned in the manuals. I used it 
on a blank disk and had no fur- 
ther problems. 

The next problem was con- 
tinuing lines in the editor. The 
manual said to use the "\". This 
Is not on the TRS-80 keyboard, 
but "i" works instead. That's 
logical. This is the symbol used 
in TRS-80 BASIC. As the editor 
gives every line a number and 
the "4" does not echo some- 
times it is difficult to tell if a "I" 
or a carriage return was used 
when a file was created. I solved 
the problem by indenting all 
continued lines to distinguish 
them. The next problem was 
finding a substitute forthe"t" in 
a power statement, ie, 2t3. The 
"t" on the keyboard doesn't 
work, although the symbol it 
prints in CP/M, the "— ", has the 
correct ASCII code. I also tried 
SHlFTt which prints "t-". This 
didn't work either. I'm still wait- 



ing for FMG, Corp. to answer 
this. One other problem that 
FMG is handling: I can't make 
the DEF FN . . . with FEND com- 
pile correctly. 

An idiosyncrasy of the com- 
piler is that it only prints out 
lines up to 80 characters long in 
its listing. This is verified in the 
manual. It sees and correctly 
compiles the remainder of the 
line but doesn't list it. I don't 
understand why. It is a nuisance 
when the compiler gives you a 
syntax error In a part of the line 
it doesn't display. Oh yes, the 
compiler prints out all errors it 
finds when the compilation 
takes place. This can save pro- 
gram crashes later when run- 
ning the program. I think the 
compiler runs slowly. 

The compiler seems to gen- 
erate DL errors when they do not 
exist as artifacts of other errors. 
The DL error means a duplicate 
line number exists. This can be 
annoying; I have had listings 
showing a DL error after 75% of 
the line numbers, though there 



were no duplicate lines. The 
answer seems to be to clear up 
all the other errors and the DL er- 
rors will go away by themselves. 

in contrast to TRSDOS, I have 
not encountered one disk prob- 
lem or error using CP/M, and do 
not get any double letters from 
keyboard bounce. But if I switch 
back to TRSDOS I still have the 
usual disk problems — disk I/O 
errors, bad saves, etc. 

In my judgement it is easier 
and faster to create and debug a 
program using a BASIC inter- 
preter, but a compiled program 
runs faster and the initial 
weeding out of syntax errors 
saves later debugging prob- 
lems. In addition, compiled 
BASIC allows you to sell a pro- 
gram supplying only the inter- 
mediate code. This protects the 
source code of the program. 

Disk routines are more easily 
written in CBASIC. I like the 
system, but hate the time it 
takes to go back to the editor to 
edit a program, recompile it and 
run it again after you make a 



change. I also miss being able to 
access the variables during pro- 
gram debugging by simply 
breaking the program and print- 
ing the variables. But that is the 
essential difference between a 
compiler and interpreter. 

Customer Support 

So far I have had excellent 
help from FMG Corp. French Is 
very knowledgeable about the 
TRS-80 version of the system (he 
wrote the conversion). He also 
returns phone calls. 

One afternoon when there 
was no one at FMG who could 
help me I tried calling Digital 
Research, the company who 
sells CP/M. Not only were they 
rude, but their Software 
Systems won't even admit to 
having a phone. 

I suspect other versions of 
CP/M compatible BASICS will 
soon be available for the TRS- 
80, perhaps an Interpreter. 

The address of FMG Corpora- 
tion is PO Box 16020, Ft. Worth 
TX. 761 33. ■ 
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PRESENTS: 

PROBABILITY 
HANDICAPPING 
DEVICE I 

A TRS-80* LEVEL II BASIC PROGRAM FOR: 

HORSE RACE HANDICAPPING! 

"BE A WINNER: READ COMPUTERS & GAMBLING MAGAZINE 

SAMPLE ISSUES S1.00 
This amazing program was wrillen by a professional soft- 
ware consultanl to TRW Space Systems, and is being 
introduced by the publishers of Computers & Gambling 
Magazine "PHD-I" is a large complex level II program 
requiring a full 16K. It is careiully human factored for easy 
use. PHD-I is a comprehensive horse racing system tor 
picking overlays in thoroughbred sprint races (less that 1 
mile). This system has been tested using hundreds of races 
from the daily racing form for both major and minor tracks 
in the US It consistently yields a large positive return. 
Detailed printouts of our statistics are availaljle. This 
program features; 

• Automatic keyboard debounce 

• Verification display of each horse's parameters prior to 
entry for easy error correction 

• The win probability and correct odds for each horse. 

• Bubble-sort routine tor final display 

• Line printer output option 

• Complete users manual with examples and tips on betting 
and money management. 

Sit down with your TRS-80* and the daily racing form the 
night before the race and answer 5 or 6questions about each 
horse's past performance The computer then accurately 
predicts the win probability and odds-line for each horse 
allowing you to spot overlaid horses while at the tracl( The 
users manual contains a complete explanation of overlay 
betting. 

ORDER NOW AT THIS SPECIAL INTRODUCTORY PRICE AND 
RECEIVE A COPY OF OUR MAGAZINE ABSOLUTELY FREE! 

PHO-1 16k Level II Cassette $19.95 

Make checks payable to 

Joe Compuler 

ZZ7I3 Venlura Boulevard. Suite F ^193 

Woodland Hills, Calif. 91364 

'TRS-eO is a registered trademark of Tandy Corporation 
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5%" Diskettes 10 SO 100 

3M-744-0 3.15 2,95 2,85 

Verbatim 525-01 2.65 2.45 2,30 

8" Diskettes 

3M-740 3.05 2.85 2.75 

8" Double Density 

3M-741 4.15 3,95 3.80 

Diskette Storage Pages 10/3,95 
Plastic Library Cases 5" - 1 ,95 8" - 2,85 

CASSETTE TAPES -Agfa PE 611 

Premium quality in superior 5 screw fiousing, 

C-10 10/5-65 50/25.00 100/48.00 
C-20 10/6,90 50/30,00 100/57.00 

TRS-80 Adventures by Scott Adams 
IVlachine Language Classics for 16K. 
Seven Adventures currently available, 
SALE! $12,90 each, 3 for $35,00, 

NEW SARGON II Chess (TRS-80 cassette) 
regular price $29,95 our price $24.90 

Add $1 per order tor shipping. We pay 
balance (UPS surface! on all prepaid orders, 
"TRS-ao Is a registered trademark ol TANDY CORP.' 
A B COMPUTERS 
115 E. STUMP RD, 
MONTGOMERYVILLE, PA. 18936 

(215)699-8526 ^81 

WRITE FOR COMPLETE CATALOG 



PUT YOUR TRS-80 
TO WORK! 

SET TYPE! 



SAVE the TIME and EXPENSE of having 
copy re-keyDoarded, You compose text for 
Dooks, publications, catalogs, price lists, di- 
rectories, reports, etc. We convert it to tiigfi- 
quality pinototypesetting! 

FAST SERVICE. BIG SAVINGS. 
Five user- specified type faces and fourteen 
sizes on line. Change faces or sizes within a 
line. Line lengths to seven and one-half 
inches. Set type flush to the left or right, 
centered, or justified. Automatic insertion of 
space or leaders. Special characters fviore 

SIMPLE COMMANDS. 
TRS-80* with lower case modification and 
The Electric Pencil*' are required Text files 
may be transmitted via telephone with op- 
tional disk drive and modem for even faster 
turnaround time. 

Our Manujil For Microcomputer Type- 
setting, which includes instructions, ex- 
amples and type specimens is S50.00. Ship- 
ped within 24 hours. Return within 10 days 
for full refund if not satisfied VISA and 
MASTER CHARGE accepted; give card num- 
ber and expiration date. 

BROWN GRAPHIC PRESS 

2488 Summit Street, Columbus, Ohio 43202 
614/262-3491 ,^94 

Text for this ad was composed on a TRS-80' 

■TftS.SOjsa irademarkoftne Tandy Corp 
■•THE ELECTRrC PENCIL a 3 UiaemnK ul Michael ihfiyei 
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UTILITY 



A BASIC program to turn your 
Level II Into an intelligent terminal. 



BASIC Terminal 



Terry Noreault 
Computer and Info. Studies 
Colgate University 
Hamilton NY 



One use of the home compu- 
ter that has been incom- 
pletely explored is its ability to 
communicate with remote com- 
puters. The personal computer 
can be used effectively as an in- 
telligent terminal. It can also be 
given hard-copy capability 
through this communication 
link. This article will review the 
Radio Shack hardware and soft- 
ware for communication and 
detail a design of intelligent ter- 
minal software. 

Hardware and Software 

The hardware to modify a 
TRS-80 to use the software de- 
tailed in this article is: 

1. Expansion interface 

2. RS-232-C interface board 

3. Telephone interface I or II 

4. Level II with 16K 

The RS-232-C interface board 
comes with an object code pro- 
gram on cassette that enables 
the TRS-80 to operate as an 
ASCII terminal. This program 



makes an excellent base for 
designing a versatile com- 
munication system. The manual 
accompanying the interface 
board ("TRS-80 RS-232-C Inter- 
face Board Manual," Radio 
Shack, 1979) is a clear, concise 
and thorough introduction to 
the capabilities of the interface 
board. The manual contains 



Modification of the terminal 
program will be easier if the 
source code is patched using an 
editor/assembler. All the 
patches described in this article 
to the Radio Shack terminal pro- 
gram are to the source code and 
not the object code. Source 
code patches are easier and 
well worth the cost of an 



This program makes an excellent 

base for designing a versatile 

communication system. 



source listings for the terminal 
program and an LA36 printer 
driver. 

One minor problem with the 
manual is the discussion of how 
to set the DIP switches. These 
switches control the baud rate, 
number of stop bits, word length 
and parity. It nicely details 
whether the switch should be 
opened or closed. But, the 
manual neglects to mention 
which way is open or closed. 
The DIP switch, when down on 
the right side and facing the 
front of the expansion interface, 
is open. 



assembler. 

Inteltigent Terminal 

The BASIC program listing 
presented here gives the user 
the ability to issue five different 
commands. These commands 
allow the user to 1) switch be- 
tween the terminal program and 
the BASIC monitor, 2) enter text 
for later transmittal, 3) transmit 
previously entered test and 4) 
change special characters. Fig. 
1 shows the relationship of 
these features: 

This program allows 
switching among the various 



features that have been de- 
signed into the system. Each of 
these commands will be 
discussed in detail. 

Commands 

Terminal. In the terminal 
mode, the home computer is 
used as if it were an ASCII ter- 
minal. The user may return from 
this program to the BASIC con- 
trol program using a control-Y. 
The communication link with 
the remote computer is main- 
tained after exiting from the ter- 
minal program. The communica- 
tion with the remote computer 
can be resumed at the point that 
the user exited from the terminal 
program upon reentry to the ter- 
minal program. 

Basic. After returning from 
the terminal program, the com- 
mand BASIC will cause an exit 
to the BASIC monitor. After re- 
turning to the BASIC monitor, a 
user may use any of the capabi- 
lities of the home computer. 
One feature of interest is the 
ability to use the home com- 
puter in calculator mode. All of 
this is accomplished without 
disturbing what is being done 
on the remote computer. 

By making a modification, the 



^Reader Service— see page 147 
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line printer/driver routine output 
can be directed by LLIST or 
LPRINT to send output to the 
remote computer. If the remote 
computer is left in input mode in 
a text editor, the line printer out- 
put will be directed into a file. 
This capability allows the hob- 
byist with access to a remote 
computer to use his line printer 
for hard copy. One minor prob- 
lem: While the home computer 
is transmitting, the host should 
not respond or characters will 
be lost. The interface board 
does not seem to be able to- 
handle concurrent I/O. 

Enter. This command allows 
up to 8K bytes of text to be 
entered and stored in RAM. This 
could be modified to store the 
text on tape or disk if desired. 



The purpose is to store the text 
for transmittal to the remote 
computer at a later time. 

It is a simple text editor. It has 
an Exit " " and can back up in 
the text" ", deleting characters 
as it goes. At present, this is 
satisfactory for typing rough 
drafts. A better editor could be 
designed. 

7"ex(. This command enables 
the text from ENTER to be trans- 
ferred to the host computer. All 
the characters in the ENTER 
buffer will be transferred to the 
remote computer. The remote 
computer must be ready to 
receive and store the text. 

Change. One problem with 
the TRS-80 is that it is not a full 
ASCII keyboard. There are some 
characters that are not normally 



lOOOO 


PRIHT 


"HELCC 


300I0 


PBIIT 


■OPTIO 


]00 20 


PBIST 


11 


100)0 


PlIHT 




JOOUO 


PBIiT 


21 


10050 


PBIKT 




10060 


PBIHT 




10070 


PHIKT 


3» 


jooao 


PBIMT 


<*) 


30090 


pai»T 


51 


10095 


PaiMT 





MELCOHE TO lEHlIIIJkL PBOSBAn" 

s kti* 

TEfla - T3 BSE »S K TEBHtmL" 

OjE COmaOL-Y T3 BETUBN" 

BASIC - ro BBruBN ro BJLsrc namrDB" 
It eDN BtSIC- 
Bl USB LLIST ZONHIND' 
ENTEB - EBIEB TEIT 13 BE TB ANSI1 ITPED- 
PBIMT - PBIBI TEir FBOB 'ENTEB'" 
IHAHiiE - CHIMSE CHABATEB CODE FOB ■ 
COITBOL-D" 

3O110 ISPOT "ENTEB OPTIOH";!! 

10120 IF kS="BtStC" THEN EHD 

lOnO IT IJ^-iTEBi- THEN 30200 

301110 IF AJ = "E1ITBB" THEII 10300 

10150 IF »J = ''PBIICT" THEN lOttOO 

10160 IF l>S = "CHliGE" THEN 30500 

30170 G0T3 30020 

BBS Chaaqe iddress Coc Line pcLaCei: Iciver 

BKH and iaitialize SB call Oc teciinal ptjqirai. 

30200 POKE 16121,2 

3O2I0 POKE 161122,0 

30220 PORE 16123, 127 

30230 POKE 16526,0 

10210 POKE 16527,112 

BEd call tecainal roqraa 



10250 1=0SB(0) 
30260 fiOtO JOllO 



EEB teit eoterinq procaduce 

30300 FOB 1=20179 TO 23671 

10310 

30)20 

30330 

10310 

30350 

10360 



tt^IIKETJ 

IF LEN (Ai|=0 THEN 3331 3 
PBIKT AS: 

IP *SC(ASI=2U THEM I=I-1:GOr0 30110 

POKE I, ASC(AJ) 

IF ASCIAJI =ASC [-t l"l THE* 30380 
30370 HBIT I 

10390 PBIHr "END OF INPUT" 
10390 GOrj 30110 

BBfl Transiit text Eroa ENTEB to reiote 
aES coiputec which niist be reiJy to 
HEP1 recie»e input 

50100 FOH J=20179 TO 23671 

10110 A=PEEr(Jl 

10120 IF A=iSC(-t-| THEH 30150 

10« 30 LPBIHT CHBJ(»1 : 

10110 NEir J 

10150 PBIIT "END OF OUTPUT- 

10160 GOTO 30110 

lEfl chanqa special coda for 
aBH contrsl-D 

J0500 INPUT" ENTEB CHA8ATEH CODE, IN DECIM*L.";» 

30510 POKE 29891, A 

10520 PBINT "COMTBOL-D 13 NOil CUAHACTER CODE ":A 

30530 GOTO 301 10 



Program listing. 



63 


PUSH 


BC 






CP 


40H 


;is character 




JP 


M,EXIT 


;upper or 




CP 


7BH 


; lower case 




JP 


P.EXIT 


;it so 




CP 


5BH 


.convert case 




JP 


M.LGWER 






CP 


61 H 






JP 


M.EXIT 






ADD 


A,-20H 


;L0WER TO UPPER 




JP 


EXIT 




LOWER 


ADD 


A,20H 


;UPPER TO LOWER 


EXIT 


JP 


C10$ 

Fig. 1. 





transmitted. The Radio Shack 
software solves this problem by 
trapping four codes (1H to 4H) 
and replacing them with user- 
defined codes. 

Occasionally, there is need to 
add more than four new codes. 
This command allows the code 
associated with control-D to be 
changeable. It is a little inconve- 
nient but better than making the 
modification using T-BUG. 

Enhancements 

These commands allow the 
user to use both the power of the 
home computer and the remote 
computer to their maximum 
benefit. Other features that can 
be added are: 

1) the ability to trap incoming 
signals to permanent storage on 
the home computer 

2) improved text-editing 
capabilities 

3) keyboard modification of 
baud rate, parity, word length 
and number of stop bits for the 
RS-232-C interface 

All of these features and 
enhancements have or can be 
accomplished without modifica- 
tion of the remote computer. 
Special software need not be 
developed for the remote com- 
puter. 

Patches 

Return to BASiC. The first 
patch is to enable the terminal 
program to be called ancj exited 
as a subroutine from BASIC. 
This is accomplished by trap- 
ping a control-Y, which signifies 
a return. The following 
assembler accomplishes the 
return to the control program. 
The line numbers are the line 
numbers in the Radio Shack ter- 
minal program. 



37 JB Z.INS 

CP 19H :isitY 

JP NZ.OVER :if not continue 

RET :else return 

38 OVER CP 05H 

Case change. One fortunate 
feature of the TRS-80 keyboard 
is that it generates both upper 
and lowercase character codes. 
An unfortunate feature is that 
they are reversed. The upper- 
case is generated when the shift 
key is not depressed; lowercase 
occurs when the shift key is 
depressed. This can be over- 
come by simply reversing the 
case before the character is 
transmitted. The following 
patch accomplishes this. 

The terminal program has 
been relocated to 7000H to 
allow more room for BASIC pro- 
grams that are to be printed 
using LLIST. This is accom- 
plished by changing the ORG 
setting in the assembler pro- 
gram. 

Line printer driver. All this pro- 
gram does is to take a byte and 
send it to the output section of 
the terminal program. The driver 
moves the byte from one 
register to another. The output 
will be at whatever the baud rate 
of the communication link is: 

ORG 7F00H ;line printer driver 

LD A,C :move character 

CALL SOUT :transmit character 

BET 

END 7000H ;entry to term. prog. 

Conclusions 

The home computer offers 
the user a flexible communi- 
cation link to a remote com- 
puter. The link can be molded to 
perform specialized functions, 
i.e., perform complete logic in- 
cluding account number and 
password. The possibilities are 
limited only by your resource- 
fulness. ■ 
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TRS-80' DISK FILE MESS? 

Find disk files instantly with the most sophisticated disk indexing program available. 
Similar Indexing programs exist but none with as many features as FlNDISK-11! 

AUTOMATICALLY create, sort, print, search a Master Index of all disk files. 

AUTOMATICALLY read file names, disk numbers (no hand entrij). 

AUTOMATICALLY print disk labels (optional). 

AUTOMATICALLY update Index from revised disks. 

AUTOMATICALLY add optional file descriptions. 

AUTOMATICALLY purge disks of unwanted files. 

• FINDISK-Il (on tape or disk. 32K mm) $20,00 

Other powerful programs from Documan available on tape or disk; 

• STRUCT-I beam design and moment transfer w/graphics I16K) $15,00 

• SOLAR-I essential calculations for passive solar design 132K) $30.00 

• RIA-I complex analysis of real estate investments (32K) $30,00 

• DEPRECIATE-I calculate, print 12 facts on depreciable items fJeX] $10.00 

^88 VISA OR MASTER CHARGE 

DOCUMAN SOFTWARt BOX 387-A KALAMAZOO, MI49O05 (616)344-0805 



Call us, Write us, or Circle our reader service # 

If you like to receive mail related to the TRS-80" Model I or Model II. then send us 
you rname and address. Companies and individualsall across the country have 
products and programsthey want to tell you about. Products that will enable you 
to use and enjoy your computer more 

Each day a trip to your mailbox can bring you useful, interesting information 
on accessories, business programs, game programs, hardware, supplies, etc 

And by mailing directly to you the companies can go 
into greater, detail on their products and services. So 
send your name and address today. Tell us if you own a 
Model I or Model II and if your interest is in personal/ 
hobby or business use. 



▲ 



TRS 80 ■ Reg Trydemurk ol Radio Shack 




National Tncor, Inc 73335 Greenleaf Blvd. /Kalamazoo, Ml 49008/616-375-7519 



MANAGEMENT SYSTEMS SOFTWARE 

ANNOUNCES 
TWO NEW BUSINESS PROGRAMS FOR THE SMALL BUSINESSMAN 

BY 

lEROME S. OSTERYOUNG. PH.D. 
RENOWNED BUSINESS EDUCATOR AND AUTHOR OF 5 BUSINESS TEXTS 

PROFORMA CASH-FLOW PROGRAM * LEASE-PURCHASE PROGRAM 

FORECASTS CASH NEEDS AND LIQUIDITY EVALUATES LEASE VS PURCHASE DECISION 

FOB UP TO 12 PERIODS INCORPORATES LATEST TAX IMPLICATIONS 

$125.00 EXTENSIVE DOCUMENTATION WITH EACH PROGRAM $100.00 

CASSETTE OR DISK 

WRITE FOR BROCHURE 

MANAGEMENT SYSTEMS SOFTWARE 



P.O. BOX 10673, ST. PETERSBURG FL 33733 
(813) 86d-d347 



1^87 



Medoffice 



TM 



The state of the art in small systems medical office 

programs. Pascal software for the TRS-SO*. PDP-11-, 
and many others. 

From the medical software specialists: 

PATIENT CARE DATA SYSTEMS 

4J8 North Main St., Penn Yan, New York 14527 
315-536-3734 



'TK.S-J)0 is a (iMdemaik ol" K^dlo Sh^Jik, n dmsiun [,l liind\' (.ui poiali. 
'Pl)!'-ll Is ii i™i!om,-ii-k ol' UigitiH K^|iiipmiTil 1 iji-]i(ji-aii(iii. " 



^96 



From The 
At GSIC: 




CASSETTE 

REMXNDER 
INTERFACE 



HOW YOU CAN 
REWIND, FAST- 
FORWARD, OR 
INCREMENT YOUR 
TAPES EVEN WHEN NOT 
DOING A 'CLOAD', 'CSAVE' 
OR 'SYSTEM' COMMAND. 

END THOSE CASSETTE 
TAPE HANDLXNG BLUES! 



CD3SILY .. »14.^S 



HE PAY fiLL SHIPPIMG ftHD HANDLING CHftftGES. 

FEATURES! Adapts instantly to 
present systemi precision toggle and 
momentary push-button switches, 
durahlp painted aluminum cabinet, 
high quality micro-plug and jack, 
non-slip rubber feet, does not 
interfere with normal system 
□peratinn, compact design 
complements your system- 

SEM) CHECK OR HONEY ORDER TC: ^93 
GRANITE STATE 
INSTRUMENT COMPANY 
Box S'^Sfi 
Nashua, NH 030A1 

(1 TRADEWRK DF TMDY CORFWflnW) 




your 
TRS-80 



Now, Scott VET/I, an exciting new 
product of Scott Instruments, permits 
you to talk to your TRS-80, allowing 
voice control of basic programs or 
games The Scott VET/I offers: 

• User initialized vocabulary of up 
to 40 words 

• Fast recognition 

• High accuracy 

• Demonstrated performance 
comparable to systems costing 
$10,000 or more at hobbyist 
prices. 

• Multiple user Capability with no 
increase in storage requirements' 

• Easy to train and use (user pro- 
grams can be written in Basic) 

• Requires TRS-80 (c) Model I with 
expansion interface, 16 K of addi- 
tional memory and dual disk drives/ 
cassette (c) Trademark of Tandy 
Corporation 

For more information call 
(817) 387-1054 or write 



nstruments '^^' 

815 North Elm, Denton, Tx. 76201 
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REVIEW 



F/Ve tapes from a major micro book 
publisher reviewed by 80's man in Africa. 



dilithium Tapes 



Rod Ha Hen 
State Dept. -Accra 
Washington DC 20520 



I want to pass along my 
thoughts about some in- 
teresting new programs for the 
TRS-80 which have come to my 
attention, I'll try to be objective 
enough in my descriptions so 
that you can make up your own 
mind. Even if some of these 
don't appeal to me, I'm sure that 
many of you wilt feel differently 
than 1 do. 

These five tapes are new from 
dilithium Press, PO Box 92, For- 
est Grove OR 97116. Up until 
now, dilithium has been a book 
publisher of many microcom- 
puter books. Write for their 
catalog. As far as I know, this is 
their first venture into the taped 
software field, and I think that 
they have made a good begin- 
ning. By the time that you read 
this, these tapes in their bright 
red packages should be appear- 
ing at computer stores. All five 
of these tapes are for the 16K 



Level I) TRS-80, although most 
of them will run in 4K. The price 
per tape is $9.95. 

The first noteworthy feature 
of these tapes is their ease of 
loading. I have run across many 
tapes that were quite particular 
as to volume level. In fact, ! have 
had to use my Data Dubberfrom 
The Peripheral People to load 
many cranky tapes. Such was 
not the case with the dilithium 
tapes. All loaded at my normal 
playback volume setting with- 
out any trouble at all. 

The tape numbers used below 
are assigned by dilithium and 
appear prominently on the 
package, which is a large card 
with a plastic holder stapled to 
it. the plastic holder, in turn, 
contains a standard plastic tape 
box with the individual in- 
struction card inside. The in- 
structions for all five tapes are 
also printed on the back of each 
card- 
Tape # 1 

Applications— contains six 
programs designed to provide 
assistance in various areas of 
personal life. 

Biorhythm is a familiar pro- 
gram, that appears to work well, 
tt asks for the usual information 
and then prints out the standard 
chart for ten days. If you tap the 
space bar, it will print out an- 



other ten days by blanking the 
screen and starting at the top 
again. This can continue indef- 
initely. I would have preferred a 
scrolling chart, but that is a 
minor complaint. 

Checkbook performs the nor- 
mal monthly checkbook-bal- 
ancing routine. The prompt mes- 
sages help to keep you on the 
track. 

Decide is the jewel in this col- 
lection. It is designed to help 
you reach a decision on some 
course of action or on the pur- 
chase of some item. It asks for 
the different courses or items in- 
volved and then has you input 
the best reasons for each pos- 
sible choice. Reasons are 
weighted, and the final decision 
is determined by the number of 
points received. The best part of 
Decide is that it forces you to 
look more deeply into a decision 
before making it. 

Loan figures your monthly 
payment given the amount, in- 
terest rate and number of 
months to pay off. It prints a 
monthly breakdown so that you 
can see how much is going to 
the principal, how much to in- 
terest, and what the total in- 
terest paid to date is. You can 
also input a larger payment to 
compare how much quicker the 
loan is paid off and how much 
less it costs. This runs much 



slower than a similar program 
that I wrote some time ago. 

Mileage maintains a record of 
your gasoline usage. You enter 
the date, odometer reading and 
number of gallons each time 
that you fill your tank, and perti- 
nent data will be stored in a tape 
file. You can then call the file at 
any time for a breakdown of 
your gasoline {or diesel fuel} 
usage and the miles per gallon 
you are getting. 

Questionnaire is used to 
grade multiple-choice-type 
exams or questionnaires. As 
such, it will probably be of most 
interest to teachers. I found it a 
iittledifficult to get into because 
the instructions are pretty slim, 
but some practise will help with 
this one. 

There is a little something 
here for everyone. You'll have to 
decide if any of it is for you. 1 
think Decide alone is worth the 
price. 

Tape # 2 

Educational— has some pro- 
grams for children and some for 
all ages, I'll let you guess which 
is which. 

Arithmetic gives you a choice 
of addition, subtraction or mul- 
tiplication—easy, medium or 
difficult problems— and then 
prints four problems on the 
screen at one time. When you 
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3»I»i 



America's Largest Mail-Order Compurer Store 



HUB REINFORCING 
DISK PROTECTORS 



16K MEMORY 
ADD-ON 

S75 2 for SI 40 

lor IR'yIUI, Apijio. l\i(I\ 
Intldlls in mmur«s, ni> specie 
lools required- Compile Witi 
dvJMpd inslriKliims. \% t 4 11/ 



CalNi; 
nib 



DC 



TRS-HIl ki'vhii.irii 



.ilhii 



TRSHI) I 

fered ciiblt' 

TRSHO wilhbuKf 

cahii- 

For Apple 

For E^idv Sorterfi 



Verbatim 

5V4 DISKETTES 

,'hc I'KAf (Nipjj.'jr <h\t.i.'trf III 

((if HOf.'d' 

$29/box of 10 

2 for S55 

faf No. Type Dcsciiptiiin 
1147 S25-01 Sod, TRS-80 
1I4H ,23-111 10 hole (lard, 
Apple, North- 
(Idr. HS 
I14') ^2i-16 lb holeh^ril. 
Miciop.>li. 



TRS-80 
DUST COVERS 

Keeps dosl fi 

ponpnn Cu' 
the TRS-HO 



IrnTi riesi^netJ tc. 



CaINc; 

ISJJ 

I5>4 

15S2 

1551 



DQScripliix 
Keyboard 
Vidm 
Ca»e1te 
Diik 
!, I.ilc .'(f% 



DISK/DISKETTE 
LIBRARY CASES 



PwfenKo 



lor.ige dild iil,lilin>^! Hi- 
lic case, holds up lo W 



impacl pi 

diiky 

Cdl No. I4H4 .51 i'' 

diskeltcs So. 

Cdl No. 1W6 a" disk 10 I 



it.b5 



2 for 



VERBATIM 
CERTIFIED 
CASSETTES 54.95 

Cerlified 5pi>cilicallv lor per wna I 
compuieri such ds Ihp TR5-S0, 
Apple, Pet, eTCr Splice-fTee, 
lcjderlt:^s, wilh folding recording 
uhs. 



COLOR CODED 
RIBBON CABLE 



M.<l 


slvle, r,3 


inbow 


colored. 


Separ 


tes like i 


p-cord, 2B ^^Ee, 20 


conriu 


riors per 


nth wide 




Ofde 


by Ca( 


.\'n _' 


147 and 


cofidur.lon 






Cord 1 tt 


10 li 


21 il. 


14 


$2.10 


$ ?.bO 


S10..'".U 


1h 


*2.40 


S h.40 


SI J DO 


211 


SI. tin 


S 8.00 


11.5,00 


21, 


St. '1(1 


SI 0.40 


$19 SO 


(4 


SI. 10 


S1J.60 


$25. tO 


40 


Sf.UO 


SI 6.00 


$ino(i 


"pO 


s-->o 


S 30.00 


$'r in 



HOW TO ORDER 

Vj\ bv (hi'fk, MjsfrrcbarRe, 
\i>.j, ur COD. (hdiKP orders 
pifjse includi^ expiration r^ale. 
• <)rt'ij;n pov in U.S. fund^. Order 
bv phone or mail, or al our relail, 
.MINIMUM ORDER $10. please 
iricliidif phone nirniber .ind maR- 
.i/inc'/issue \ou are ordering 
from Prices valid tbru last day ol 
(over ddfo SHIPPING: USA: 
add Km lor the firsi 2 lbs. For 



f'foJcLh diik-, iiml dhkcW' I'om iveai' 
Repdiii damaged diik^' 



Now 
disks 
DISK 
tedui 
lire li 



lined" 



»ilb si 
PROTEC 



Cit N 
2073 
2074 
2075 
207b 



save I hose 

pic insertion ot our 

TOR ! tnserlinK a pro- 

ir disk will increase its 

! Easy lo inslall, jusi disk requ 

i. Desciipiion 

S'A" diskette tool 

S'/i" diskette protecto 

8" disk lool 

ft" disk protedor rinfjs 



$]ip d prcrleclor ring orto ibe prefi. 

sion lool, then slip on the disk! No 

^luein^, no drying lime, no hejt! 

toiil lasts indefjnalely, each 



Wl, 



rinRS 3 or 



' protecio 
Pri< 



nnR, 



S4.95 
>r $<l 1*5 

Sfp.95 
■ SI t.'JS 



574" DRIVE ENCLOSURES 



Sinille 



plastic 



• ril', Shiigail, MPI, Feitec and moK' 
nciosure is lvK-pie<e metal cat t^o. 2055 Dual 1 V; lbs $59 
clion, beige-tone. Dual Cat No. 2245 Sinnle 2 lbs $35 
le is one-piece molded . j^ «» ^ 

charcoi.1 srey finish QS lOW OS $25 



CRYSTALS Order by Cat ,\'o. nSO and value 



3.2768 4.9152 
3.3300 4.9563 
3.57954^ 5.0000 
3. 595 J 2 S.0b88 

Choice ^^^^ ^-^^^° 

4.194304 5.5870 
4.0240 5.7143 
4.4340 .5.9904 
4.4400 b.OOOO 
4,5500 b,1440 
4.7500 6.5536 



Your 



$3.50 



8,0000 

fOOOOO 

11.43000 

12.0000 

12,4400 

13,5168 

14.31818 

15.0000 

1S.OOO0 

18.4320 

19.3540 

19.6608 



20.0000 
32.1184 
23.4000 
23.6840 
25,0000 
27,0000 
32.0000 
32.0000 
36.0000 
100.0000 



Your Choice 
$4.00 

1.0000 2.097152 

1,0250 2.4576 

1.8432 2.5000 

2.O00O 3.0000 

2.0120 



■Vl.'MCPLESS SYSTEMS 

TRS-80 
MINIDISK $395 

DRIVE 2forS775 

The best drive av,iilah{e today! 
Complete and ready to use. wilh 
iiee 2-drive cablet Free software 
tor speeding up your access time 
Irom 35nis to 12ms! Optional 
software for increasing data 
slorase from 55K to 67. 8K on 
your first drive, and to 89K on 
vnur second drive! Full 120 day 
rliorlev back guarantee! 




Cat No 


Description 


1.37^^ 


Drive w;2 drin 




cable 


1396 


4 drive cabli; 




[atone) 


1938 


Tracks 36-40 




software 


1147 


Verbatim disk- 




ette.s, 10 fur 



LEEDEX VIDEO 100 12" MONITOR 

• (.nmpatihle wilh TRS-Sd, Apple, and most imallcomptrlersl 

• High resolution' 



low cost, yet high resolution (6.50 
line). Compares favorably with 
monitors cosling (wicB as much. 
Because oF the fad tbat standard 
composite video input Is utilized no 



RE modulator is needed an e 
(remely sbarp and stable picture 
achieved. Tbe video bandwidlh 
12MH2 + Mdb wilba75ohminpi 
impedance. 



Cat No. 1204 Lcedex Monitor, il i9 

18 lbs. 
Cat So. 1937TRS.80fleede\ Cable 

kil, bo/ SI 



$139 



Novation "Cat" 

Acoustic Modem 



i<> lirsl 


niia 


Iv 




■| mrkdem 


csigncd 


spec 


lie 


ally to 


the small 


imput 


r 1 


se 


Des 


gned to 


ansmii 


d, 


a 


over 


slandard 


lephon 


lin 


s 


he Cal 


fias many 


es io. 


bu 


m 


s and 


hobbyist. 


lowso 


e termi 


al or computer to 


leract V 


ilh 


Ih 


rs, pern 


nittinn one 



lions Hobbyists can exchange data 
and programs. Compatible wilh any 
Bell 103 modem and, of course, all 



other Cats! Alstt perfectly compati- 
ble with the new Radio Shack 
modem (it's tbe same unit). Data ei- 
•bange can occur at any speed up 
lo 30 char/sec. Lovv profile case 
features switches foi mode selec- 
tion and operation, also for LEDs 
displaying unit status. Acoustic sell- 
lest is standard. Complete and 
ready-to-use. Requires 110 VAC, 
60Hz. 
Cat No 1480 



$169 



Bfound add i5C (or jddfl lb. For 
air add 7S<t for addt'l Ih. FOR- 
EIGN: surf.ice: .idd $3,00 for tirst 
2 lbs, 60C per addft lb. Air: add 
$11.00 lor first 2 lbs, li for each 
addrl lb. CODsSl addCI Guar- 
anteed satisfaction lor 120 days 
or your money back! Nol re- 
sponsible lor fypo^raphital 
errors. Some items subject lo 
prior sale We reserve the right 
to limit quantities. 



SEND FOR FREE CATAIOG 
FEAIUKING: 

Computers and acctssorit'S, disk 
drives, printers, integrated cir- 
cuits, LEDs, somicondutlors, 
books, software, connectors, 
plus more and more! The wi<iesl 
selection at the lowest prices! 
Circle our reader service number 
or phonejwtite today for your 
copyT 



CALL TOLL FREE: 
(BOO) 423-5387 USA ......^ 

IN CALIF: /' ' 

(800)382-3651 '- 

LOCAL & OUTSIDE USA 
(213) 886-9200 



8'' Disks 

$37 box Of lO 

• IBM compatible 

• Single density 

• Individiiallv c.eniiied 

Cat N0.114.S Type 32-1000 

Description 

32 sector holes, l-index hole 

Caf No, 1146 Type34-1O0O 
inletchanseabie with \BMi2, 
3740, 3770, 3790, etc 



DISKETTE/DISK 
BINDERS 

Clrgani7es and prolei Is your data 
files! 5''." disks lit two per insert, 
8" fit one per insert. Binders iiv 
eludes 10 inserts. 



Cal No 

1650 

16S1 

1&53 

1652 



Description 
5'.'. "binder 
8" binder 
ettra 8" insE 
eilra 5''." Il 



S9.95 
$9.95 



C-10 DATA 
CASSETTES 

Highest quality. Spooled wil 
Stolcb-Brand tape. Wl. 2 o/. 

Cat No. 1142 ^^ 25 

12forS10 

AIR FLIGHT 
SIMULATION 

Turns your TRS-80 into pn airplane, 
Vou Ciin practice tjke-ofbi bndinj^s, 
uilh the bent^fil of full instrum^nta- 
11 on. A one-pbyer simulation. 
Cat No. 1585 $7.95 



TRS-80 $19 

LOWER CASE 
MODIFICATION KIT 

Modifies your machine lo 
display both upper and lower 
case. Installs in minutes, requires 
drill, soldering iron and 
screwdriver. Wilh complete 
instructions. Cal No. 15.50 



S-100PCCARD 
GUIDES-6for$1 

For ^IjncldiH PC urd^ hold^ Mrmlv 
in pldci.'. 4V2" limj;, tvifh 'i" n'l 
injp III \ug^. Nylon. Wt 2 «z. 
Cat No, T306 



9 VOLT 3 AMP 

POWER 

TRANSFORMER 

9V @ .iA, also 1.5V ® 500mA 
isolated. Regulates easily to 5VDC, 
12VDC. Heavy shielded construe 

. Wt 2 lbs. 
Cal No. 1339 



S4 



TV 
MODULATOR 

fkitl 'UsffuWcs (fi mimitc\ 
^ ' install'^ in niiuufe.s-' 
Al 4 epis composite video output 
trorii cori>pulers, TV games, etc. Re- 
quires tJVDC, operates on any stan- 
dard B&W TV, channel 2 or 3. Com- 
pletely shielded. Not to be used 
wberf pioliihilcd by law Wl 4 .w 
Cat No 197 



' $4 3 for SIO 



TIELINE 

Prog ram ma 



^ mainlrar 
and alio 



rt le 



sendfreceive BASIC aod dala via 
pbone. Requires modem, RS212, 
32K, DOS 2.1 or later, 
Cal No. 2137 Sb.95 



HUNT 

Progromma 

A new class of game where vou 

rules, and so on. All Ihe best ot 
Adventure, Dungeon, Quest, 
Dragons all rolled into one! 
Cal No.2145 TFiS-8D L2,1bKSl9.9S 



BRIDGE 
CHALLENGER 

Vou and durr^rny play against the 

computer "m regular conlrart 

bridge. Eilhcr you or comp sets 

up. 

TRS-eO 12, IbK 

Cal No. 1195 $14.95 



Sargon Chess 

Winner of all tournaments! b levels 

of play, excellent giaphics. 

TRS^O 12, 16K 

Cal No, 1093 S19,95 

Apple IJ, 16K 

Cal No. 1317 S19.95 



STAR TREK III 



TRS-80 12, IbK 

Cal .No. 1041 $14.95 



BARRICADE 

Similar In breakout. A real time 
game, with opllorts of speed. 
balls, angle, etc. 
[iiS-80 I.IIL2 IbK. 
Cat No 1362 S14.95 



LEVEL III BASIC 

ives your TRS-80 Ihe power 
a full siie system. Disk ct 
mands, advanced editing, etc 
TRS-SO 12, 16K 
Cat No. 1J32 S49 



SARGON II 

Hayden 

The latest, updated n 
Sarj^on. Features seven 



Cat No Description 
2082 TRS410, 12, 16K 



2083 Apple II, 16K 



TRS-yO, disJ( 
Apple II, disk 



$29.95 
$59.95 

S <9.9". 



SOUNDWARE 

Add music and sound I'flects lo 

vour projz^rams. Complete witil 

software and hardware. Installs in 

seci>nds. 

Cal No. 1898 TR5-80. L2 S29.9^ 



CRIBBAGE 

Plays according to Hoyle's Rules. 

You vs tbe computer. 

Cal No 1179TRS-80, 12. 16KS9.95 



SYSCOP 



Duplica 

backup) 
TRS.HO 12. 4k 

Cal So. IbWI S9.9 



SVSItM lape^ (fo 



ADVENTURE 

E.plore an almost ciidh'ss ma/,' 

ol treasures and pillalls Chat 

lenging and lun! 

TRS-ftO 12, 16K. 

(al No 1721 $14 95 



19511 Business Center Dr. Dept.V4 Northrldge, Ca. 91324 



^Reader Service— see page 147 
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have answered these, four more 
will be provided until you have 
worked a total of 20, A score is 
given, and then you have an op- 
portunity to try some more. My 
only complaint is that answers 
to problems have to be entered 
from right to left. For instance, 
in 8 + 4 = 12. the 2 must be 
entered first, although the nat- 
ural tendency would be to write 
1 2. 

Flashcard brings back my 
grammar school days. Math 
problems were printed on cards 
and flashed before the class. 
The student who got the most 
correct answers won a prize. 
The computer version lets you 
make up as many cards as you 
like (up to 400 In a 16K machine) 
and then flashes them on the 
screen. They can also be saved 
on cassette for later use. 

Metric asks questions about 
the correspondence between 
English and metric units — Is 11 
centimeters longer than 4 
inches?— and then shows the 
conversion formula if you 
answer incorrectly. 

Numbers is for preschoolers. 
It asks "What number comes 
after X?" Even children who 
can't read yet can learn to 
recognize numbers and their 
relationship. Correct answers 
result in a graphic display. 

Tachist is intended to im- 
prove your reading skill by flash- 
ing phrases on the screen. Every 
time that you get a phrase cor- 
rect, the next phrase is flashed 
at a quicker speed. I would like 
to see more practice at each 
level before the speed is in- 
creased. 

Vocabis a multiple-choice vo- 
cabulary test, A word and five 
possible definitions are pre- 
sented, and your answers are 
graded. The words and defini- 
tions are contained in a short 
data list. You can, of course, add 
to the list or have someone do it 
for you. Or you can set up lists 
that correspond to the vocab- 
ulary levels of your children. 

This package will appeal to 
those who have youngsters at 
home. It is a good way to help 
them with their schoolwork and 
to get them interested in using 
the computer for something be- 
sides gatnes. 



Tape # 3 

Games — has some old 
games and some new ones. 

Decode is Mastermind with a 
new face. Still interesting. 

Groan is a dice game that is 
new to me. Two dice are rolled 
by the computer and the player 
in turn, and each scores the 
number of points on the 
dice , , , unless one of the dice 
comes up with a face on it 
(groan!), in which case you don't 
get any points. 

You can roll the dice as many 
times as you like, but you lose 
all of your points if the face 
comes up after the first roll in 
each round. The graphics in 
Groan are very good, but, as usu- 
al, the computer is a poor loser. 



rugged course. Every time that 
you run off the road, you are 
done for the day. Your daily and 
total mileage is then displayed. 
You can start oft again the next 
day. This has good graphics and 
will keep your steering fingers 
busy, 

Wari is a new game for me. 
You start out with four stories in 
each of twelve squares. Stones 
are moved around the board in 
an attempt to capture the com- 
puter's pieces while it is trying 
to capture yours. I am not a 
game player, but I really enjoy 
this one and think that it is the 
best in this very good package. 

Tape # 4 

Mathematics— is a special- 
ized tape as we shall see. 



(^- 



he first rio(cvvorthy feature 
of these (apes is 
their ease of loading. 



■^ 



Jot is a word-guessing game. 
You and the computer each 
think of a word, and then each of 
you try to guess the other's 
word. Sort of like Mastermind. 
The computer runs very slowly 
at first, but the action picks up 
as the game moves along. 
Words are limited to those in the 
data list.but it can be expanded. 

Obstacle is a two-player 
game in which the computer is 
the referee. Each player is as- 
signed a block inside of a 
fenced-in area. The block must 
be moved so as to avoid hitting 
the fence or the other player. To 
complicate matters, as each 
block is moved, it leaves a trail 
of blocks behind It, and move- 
ment is so rapid that you really 
have to be fast to keep up with 
the action. This is a challenger! 

Roadrace is another fast- 
paced game. You are driving in a 
roadrace that can stretch over a 
period of days. You try to steer 
your car around the curves and 
along the straightaways of this 



Curve fits a power polynomial 
function to a set of data pairs, 

Diffeqn figures differential 
equations. 

Graph plots the behavior of a 
math function. 

Integrate finds the numerical 
integral of a function, 

Simeqn solves a set of simul- 
taneous linear equations. 

Stats analyzes a set of numer- 
ical data and displays several 
statistical parameters that de- 
scribe it. 

If you understand any of the 
above, then maybe this package 
is tor you. 

Tape # 5 

Graphics Display & Miscel- 
laneous Programs— is more for 
demonstration than practical 
application. The graphics and 
mathematical abilities of the 
TRS-80 are showcased. 

Kaleido, Sparkle and Squares 
are three programs that display 
continually changing graphics 
pictures on the screen, I'm a 



sucker for this kind of display. 
Soft music, wine and computer 
graphics! 

Walloons is a different type of 
graphics display from the 
above. After a tricky intro- 
duction, the Walloons go into 
their circus act. It is a very good 
example of what is possible 
with the TRS-80. This program 
loaded each time with two 
combined lines, which caused 
an error message. After separ- 
ating the two lines, I dumped it 
back to the tape for trouble-free 
loading from then on. 

Birthday figures the odds of 
two or more people in a group 
having the same birthday. 
Groups from 1 to 60 are inves- 
tigated. Try this out at your next 
party. 

Pi calculates the value of pi 
(3,14159265) by randomly throw- 
ing darts at a circle imposed on 
a square. This apparently has 
some basis in mathematics. 
Sounds like the old "dropping 
the needle on a flag" routine. 

Powers figures the succes- 
sive powers of any integer and 
then displays the result, which 
can contain up to 250 digits, It 
does take a while though! 

Pythag generates the Pytha- 
gorean triplets which satisfy the 
formula — the sum of the 
squares of the two sides of a 
triangle are equal to the square 
of the hypotenuse. 

The techniques demon- 
strated in these programs will 
be helpful when someone asks 
you, "But what can your com- 
puter do ?" They will also help 
the budding BASIC programmer 
to better understand the cap- 
abilities of Level II BASIC, 

The documentation with any 
of these tapes is quite slender, 
but they are all self-prompting, 
and you shouldn't have any 
problems figuring out how to 
run them. Most of them are also 
described in a book from dil- 
ittiium Press called 32 BASIC 
Programs for the TRS-80 Com- 
puter (Level II) by Rugg and 
Feldman. I haven't seen this 
book, but the literature with 
each tape indicates that it con- 
tains full instructions and infor- 
mation on how the programs 
work and how they can be 
modified. ■ 
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TRS-80 
SERIAL I/O 

• Can input into basic 

• Can use LLIST and 
LPRINT to output, or 
output continuously • 
RS-232 compatible • 
Can be used with or 
without the expansion 
bus • On board switch 
selectable baud rates 
of 110,150,300,600, 
1200, 24Q0, parity or 
no parity odd or even, 
5 to B data bits, and 1 
or 2 stop bits. D.T.R. 
Ime • Requires +5, 
-12 VDC •Board only 
SI 9.95 Part No. 8010, 
with parts S59.95 Part 
No. 801 OA, assembled 
S79.95 Part No. 8010 
C. No connectors pro- 
vided, see below 




nbOD 



cable 



win atlBched cun 
rieno'slo^itlBS 
SO and our sena 
5DflrOS19 95l=ari 
Ha 3CftBaO 



COMPUCRUfSE 




$129.95: with cruise con- 
trol $169.95 



THETELESIS 

UAR-SO 

INTERFACE 

UNIT 




For the TRS-80 with 
Level II Basic • Provides 
S outputs • Provides B 
inputs • 2 ft. of inter- 
connecting cable w/con- 
nector • Plugs directly 
into TRS-BO • Powei 
supply provided • As- 
sembled and tested. 
Part No. VARBO, Intro- 
ductory price $1 09 95, 



GAME PADDLES 
& SOUND 




Includes: 2 game pad- 
dles, interface, soft- 
ware, speaker, power 
supply, full documen- 
tation including: sche- 
matics,^ theory of 
operation, and user 
guide; plus 2 games on 
cassette [Pong and 
Starship War). $73.95 
Complete Part No. 
7922C 



DIGICOM DATA 
PRODUCTS INC. 

Series 312 
Acoustic Coupler 




30D BAUD Uriginate, 

Part No, AC3122, 
$219.95. 300 BAUD 
Answe-r, Part No, 
AC3122, $219,95, 
300 BAUD Answer/Or- 
iginate. Part No, AC3 123, 
$229.95, 



LIGHT-PEN 
For Your TRS-80 




YourTRS-BO Light-Pen 

is a carefully engineered 
instrument and with the 
proper care will give 
satisfactory use and 
many years of service. 
Part No. TRSBOLP 
a24.95. 



SYSTEM 
EXPANSION 

from 
LNW Research 

• Serial RS232C/20 

mA I/O • Floppy con- 
troller • 32 K bytes 
memory • Parallel print- 
erport* Dual cassette 
port • Real-time clock 

• Screen printer bus • 
Onboard power supply 

• Software compatible 

• Solder mask, silk 
screen. PC board and 
user manual, Part No. 
LNW80, $69.95, 



DISKETTES 




\feit>atinn 



Box of 10, 5" $29.95, 
8" $39.95. 
Plastic box, holds ID 
diskettes, 5" - $4,50, 
8"-$B.50. 



1GK RAMS 

For Che Apple, 
TRS-QO or Pet $B 
each Part No. 41 IB/ 
2117. 



LEEDEX 
MONITOR 




12" Black and White- 
12 MHz Bandwidth 
• Handsome Plastic 
Case '$139.00 



S-100 INTERFACE 




AN S-1 DO bus Adapter— Motherboard for the 
TRS-BO. Kit, Part No. HUHB1 DLXK, $295.95. 
Assembeled, Part No, HUHB1 DLXA. $375.95. 



NOW! 

A FULL SUPPORT SYSTEM 

FOR TRS-80 




• 32K of RAM • EPRDM firmware • Disk 
control • Data acquisition • Parallel I/O • 
Serial I/O • Plug into GPA's Motherboard. 
GPA's quality design includes • 6-44 pin edge 
connectors • tSV. -5V, 1 1 2V, -1 2\/ external 
power supply required • Active termination 
The Motherboard, Part No. GPA80, is only 
$149.95, 

TAKE ADVANTAGE OF 

GPA-EXPANSION CARDS 

FOR THE GPA80 

Memory cards: Now with Fortran compilers 

available for your TRS-8Q. additional expansion 
memory is a mustf Card with sockets only. Part 
No, GPABOI , $1 1 9.95. Card with 1 6K of 41 1 6 
Dynamic Ham. Part No. GPAa02, $224.95, 
Card with 32K of 41 IB Dynamic Ram, Part No, 
GPA803, $329,95. All cards come equipped 
with sockets to accomodate 32K of Ram. 
EPROM firmware card. Put those valuable 
subroutines m firmware. Don't waste time 
loading and unloading tapes and disks. For 270B 
or2716EPROMS,PartNo.GPA8D6,$79.95. 
Serial I/O card. Here's what you've been 
asking for, a full serial terminal interface, with 
RS-932C or 20 mA. Current loop. Input/output 
capabilities. Part No, GPA807, $79.95. 
Parallel I/O Card. Control functions in the 
outside world, monitor and store real time 
events. Two parallel output ports. Dip switches 
select ports iO-254) Part No. GPA808, 
$79.95. 



FLOPPY DISK 
STORAGE BINDER 




Three -ring binder 
comes with ten trans- 
parent plastic sleeves 
which accommodate 
either twenty, five-inch 
or ten, eight-mch 
floppy disks Binder S, 
10holders$14.95Part 
No. 8800: Extra holders 
95(0 each. Part No. 800. 



DIGITAL 
CASSETTE 




5 min. each side. Box 
of 10 $9.95, Part No, 
C-5, 



DISK JACKET' 




Holds two 5-1/4 inch 

diskettes and will fit 
any standard three ring 
binder $9.95/10Pack, 



TRENDCOM 
PRINTER 




• 40 characters per 
second • 4-7/ IB inch 
wide thermal paper • 
Graphics (TRENDCOM 
1DQ]- 480 sevendot 
print pcstions per line. 
TRENDCOM 100, Part 
No.TRC0100,S495.95. 
TRENDCOM200,Part 
No.TRC02QD,S375.95. 
Interface for TRS-8D, 
Part No T80A $45.95. 
For Apple II, Part No. 
TRCAII, $75.95. For 
PET, NO TRCP2, 
$79.95. ForScoccerer, 
TRCSR1 $45.95 



SARGON: A Computer 
Chess Program 

Features the complete program that won the 
197B West Coast Computer Faire Tourna- 
ment. Part No 00603 — TR3-S0 Level II; 
Part No 00604- Apple II (24K) $19.95 



SOUND EFFECTS AND MUSIC 
FOR YOUR COMPUTER 




SDUNDWARE is a complete system. It includes 
a speaker/ amplifier unit with volume control, 
earphone jack, and connectors. It boasts 

excellent tone quality yet is small and convenient 
to use. Add batteries, plug it in. and play. One 
year warranty. SDUNDWARE package (in- 
cludes INTRO to SDUNDWARE programs) 
PET (BK], Part No. 20003, S29.95. 1RS-8D 
Level II (16K] Part No 20002, $29 95, 
Compucolor II 18K). Part No 20001, $39.95. 
INTRO to SDUNDWARE prcgran-s only PET 
and TRS-8D, Part No. 2D005, $14.95, Compu- 
color II Part No 20006, $1 9.95. 



Tq Ordfif' '^^"^'0'^ P9^t no, description, and price. In USA shipping paid by us for orders accompanied by check or money order,' 
We accept C.O.D. orders in the U.S. only, or a VISA or Master Charge no., expiration date, signature, phone no., 
shipping charges will be added- CA residents add B.5% for tax. Outside USA add 10% for air mail postage and han- 
dling. Payment must be in U, S. dollars. Dealer inquiries invited. 24 hour order line (408) 448-080D 



Send for FREE Catalog ... a big self-addressed envelope with 41 * postage gets it fastest! 



ELECTRONIC SYSTEMS ^^P^-^ P- ^- ^^^ ^leSS, San Jose, CA USA 95151 




from MiniMicroMart 

Radio /haeK TRS-80's 



(prices do not include shipping) 



MiniMicroMart 


Mfg. 




List 


Discount 


CASH 


Order No. 


Order No, 


Description 


Price 


Price 


PRICE 






TRS-80 Complete Systems 








TAN-U001-0 


26-4001 


TRS-80Mod, ll,32K 


$3450 


$3161 


$3099 


TAN-1 4002-0 


26-4002 


TRS-80 Mod. 1I,64K 


3899 


3567 


3499 


TAN -00000-0 


26-4160 


1-Drive Expansion System 


1150 


1056 


1035 


TAN -00000-0 


26-4161 


2-Drive Expansion System 


1750 


1607 


1575 


TAN-00000-0 


26-4162 


3-Drive Expansion System 


2350 


2157 


2115 


TAN-00000-0 


26-4163 


Disk Drive Kit (Drive Only) 


600 


551 


540 


Systems below ir 


elude CPU/Key bo£ 


rd, Power Supply, Video Monitor, Cassette Recorder, 


Vlanual , and Game Cassette | 


TAN-11051-0 


26-1051 


4K RAM, Level! BASIC 


$499 


$458 


$449 


TAN-n053-0 


26-1053 


16K RAM, Level-I BASIC w/numeric keypad 


729 


669 


656 


TAN-1 1054-0 


26-1054 


4K RAM, Level-I 1 BASIC 


619 


568 


557 


TAN-1 1056-0 


26-1056 


16K RAM 1 evel-ll BASIC w/numerIc kevoad 


849 


779 


764 






TRS-80 Expansion Kits for CPU's {Installation Included) 




TAN-31101-0 


26-1101 


16K RAM Memory Plus Numeric Keypad* 


230 


211 


207 


TAN-31 103-0 


26-1103 


Numeric Keypad 


79 


72 


71 


TAN-31 170-0 


26-1120 


1 evel-ll BASIC (InsTallation Included!* 


120 


no 


108 






TRS-80 Expansion Interface 








TAN-31 140-0 


26-1140 


Expansion Interface with RAM 


299 


274 


269 


TAN-32141-0 


26-1141 


Expansion Interface with 16K RAM 


448 


411 


403 


TAN-32142-0 


26-1142 


Expansion Interface with 32K RAM 


597 


542 


537 


TAN-32102-0 


26-1102 


16K RAM Memorv {Installation Included) 


149 


137 


134 






TRS-BO Mini Disk System 








TAN-41 160-0 


26-1160 


First Disk Drive (includes DOS, Cable) 


499 


458 


449 


TAN-41 161-0 


26-1161 


Disk Drives 2, 3 and 4 (Each) 


499 


458 


449 






TRS-80 Printers and Cables 








TAN-22150-0 


26-1150 


Line Printer 1 , Friction Feed (same as 779) 


1,299 


'1,192 


1,169 


TAN-22152-0 


26-1152 


Line Printer 1, Tractor Feed 


1,559 


1,431 


1,403 


TAN-00000-0 


26-1154 


Line Printer 1 1 (same as 730) 


970 


890 


873 


TAN-00000-0 


26-1402 


Roll Paper 


20 


20 


20 


TAN-00000-0 


26-1156 


Line Printer HI 


1,960 


1,799 


1,764 


TAN-00000-0 


26-1417 


14 7/8 X ir'Fanfold Paper 


50 


46 


45 


■ TAN-00000-0 


26-1404 


Mail Labels 


20 


19 


18 


TAN-22153-0 


26-1153 


Quick Printer 


499 


458 


449 


TAN-22401-0 


26-1401 


Printer Connection Cable, Mod. 1 w/expansion 












interface for Line Printer 1 (7791 + , or 1 1 1 


39 


39 


39 


TAN-29141-5 


26-1415 


Printer Connection Cable, Mod. 1 w/expansion 












interface for Line Printer II (7301"'"'" 


39 


39 


39 


TAN-29M1-1 


26-141 1 


Printer Interface Cable for Mod 1 w/o 












expansion interface for use with Line Printer |t or 1 1 1 


59 


54 


53 


TAN-29141-6 


26-1416 


Line Printer Interface Cable for Mod. 1 w/o 












expansion interface for use with Line Printer I|tt 


59 


54 


b3 


TAN -29440-1 


26-4401 


Printer Cable for Mod. 1 1 to Line Printer 1 {779)'f or 1 1 1 


39 


39 


39 


TAN-29440-2 


26-4402 


Printer Cable for Mod, M to Line Printer II (7301'''"'" 


29 


29 


29 






TRS-80 Interface Devices 








TAN-61 145-0 


26-1145 


RS-232-C Board 


99 


91 


89 


TAN-61171-0 


26-1171 


Telephone Interface II (Originate/Answer! 


199 


183 


179 


TAN-61 180-0 


26-1180 


Voice Synthesizer 


399 


366 


359 






TRS-80 Software 








TAN-50310-0 


26-0310 


TRSDOS Disk BASIC 


14,95 


14.95 


14,95 


TAN-92104-D 


26-2104 


TRSDOS/Disk BASIC Manual 


5,95 


5.95 


5.95 



SHIPPING & INSURANCE: TRS-80 MOD ll's, Line Printer I, 1 1 1's are shipped freight collect. Add $10 shipping for 
1 's. Add $5 for expansion interfaces and disk drives, $3 for other. 



"RS-80MOD 



t Line Printer I identical to Centronics 779, Cable also works with all Centronics 700 series, incl, 701 , 702, 703. Also works with NEC 5530, TI-810 
w/303 option, and Anadex DP8000. ft Line Printer II identical to Centronics 730. "Prices based on exchange of existing ROM/RAM chips. 

The Radio Shack items on the above price list are shipped directly from an authorized Radio Shack store. The items are brand-new, 
come in factory cartons, with receipt, and you are entitled to warranty service from any Radio Shack store. 



Add-on memory on above price list is Radio Shack price for installation at a Radio Shack store. We can 
supply 1 6K add-on memory for your TRS-80 keyboard or expansion interface for $89 per 1 6K, . . you 
Install it yourself with simple instructions supplied. 



TAN-1-2/80 
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. . . We have them ALL 

All the Disks and Printers 
that interface to the TRS-80 

534" Drives — 8" Drives — Single and Double Density — 
and Hard Disk Systems with ud to 40 megabytes! 



MICROMATION 
MEGABOX 

1 -megabyte 




EGABOX 

for the TRS-80 

List $2295 
OUR PRICE 

$1949 



CP/M"^ OPERATING SYSTEM 

for Mod. I $129 

for Mod, II $149 

Complete line of CP/M Software available 
at discount prices. 



CENTRONICS 

PRINTERS 

NEW 730 



w/friciJon 
and tractor 

$835' 



2-megabvte 
MEGABOX 
MBIV-80 
List $3095 . . $2629 



CP/M Operating System for above 
Microsoft Patch to ROM RASIC . 



$150 
$150 



DISK DRIVES 

Fully compatible with expansion inter- 
face and TRSDOS software, VISTA, 
PERCOM, LOBO, and others - 
SA VE OVER $100 - YOUR CHOICE 

ONLY$3S9each 




CORVUS 10 megabyte hard 
disk for Mod. I or II 

ONLY $4795 



779-1 (TRS-80 Line Prtr. It. List $1245 949' 
779-2 with tractor. List $1350 1049' 

702-2 120 cps, bi-directional. 

tractor. VFU 1995 

703-2 185 cps, bi-directional, 

tractor, VFU 2395 

(shipped freight collect) 



ANADEX 

80-COL. DOT MATRIX PRINTER 



CONVERT YOUR EXISTING 

SELECTRiC TYPEWRITER 

TO A PRINTER... 

Power Supply & electronics, assembled & 
tested. You make only a simple solenoid 
installation (or have the factory do it). 
Manufactured by Escon. 

Parallel version, List S575 ONLY $514 

TRS-80 cable $ 27 




Complete upper and lower case ASCII char, 
set, bi-directional at 84 lines/min. Features 
RS232 20/60 mil current loop and Centronix 
parallel interface. Ideal for use with TRS-80, 
Sorcerer. Cromemco, and North"Star systems. 

OUR PRICE ONL Y $895 

(shipping $101 




Bi-directional; 150 cps; logic seeking; adjust- 
able tractor. Available with lower case com- 
pressed print; forms length control or vertical 
forms control option, Centronics style parallel 
interface also available. 

T.I. 810 with serial/parallel interface 
List 1940 OUR PRICE $1735 

T.I. 810 printer outperforms Line Prinler III. 



PAPER TIGER' 




Paper Tiger, List $995 ONLY $895 

w/graphics options, incl. buffer. $1 194 . . . $989 

834 



lP-225 w/1210, 1250 options, List 
IP-225 w/tracTor, 1210*. 2K buffer, & 
graphics options. List $1098 899 

TRS-80 cable 45 

"1210 option is expanded/compressed print. 



NEC SPINWRITER 



TM 




The Fantastic Letter-Quality 
Printer at 55 cps 

5530 RO/Centronics Interf., $3275 $2475 
(shipped freight collect) 



Printers for TRS-BO require Level II machines. 
Printer cables extra. Call for price and order 
number. 

* Same as Line Printer I 
t Same as Line Printer II 



SHIPPING AND INSURANCE: Add $5 for Selectric Converter. $6 for disk drives. $10 for Megabox. Centronics printers stiipped freight 
collect Contact us for shipping Information on other printers. 

All prices subject to change and all offers subject to withdrawal without notice. Prices in this ad are tor prepaid orders. Slightly higher prices prevail for 
other-than-prepald orders, i.e., C.O.D.. credltcard. etc. 

- WRITE FOR FREE CATALOG 

MlnlMlcroMart, \n&. 



^24 



1 61 8 James Street, Syracuse, NY 1 3203 (31 5) 422-4467 TWX 71 0-541 -0431 




i^ Reader Service — see pgge 147 
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• PROGRAMMING THE Z-80-BK1122- by Rodnay Zaks. Here is 
assembly language programming for the Z-80 presented as a pro- 
gressive, step-by-step course. This book is both an educational 
text and a self-contained reference book, useful to both the begin- 
ning and the experienced programmer who wish to learn about the 
Z-80. Exercises to test the reader are included. $14,95.' 

• Z-80 SOFTWARE GOURMET GUIDE AND COOKBOOK- BK1045 

-by Nat Wadsworth. Sceibi's newest cookbook! This book con- 
tains a complete description of the powerful Z-80 instruction set 
and a wide variety of programming information. Use the author's 
Ingredients including routines, subroutines and short programs, 
choose a time-tested recipe and start cooking! $14.95.' 



• LEARNING LEVEL ll-BK1175-by David Lien. Written 
especially for the TRS-80, this book concentrates on Level II 
BASIC, exploring every important BASIC language capability. 
Updates are included for those who have studied the Level I 
User's Manual. Sections include: how to use the Editor, dual 
cassette operation, printers and peripheral devices, and the 
conversion of Level I programs to Level II. $15.95.* 



• BASIC BASIC (2ND EDITION)- BK1026-by James S. 
Coan. This is a textbook which incorporates the learning of 
computer programming using the BASIC language with the 
teaching of mathematics. Over 100 sample programs il- 
lustrate the techniques of the BASIC language and every sec- 
tion is followed by practical problems. This second edition 
covers character string handling and the use of data files. 
$9.45.* 



• TRS-80 DISK AND OTHER MYSTERIES -BK1 181 -by Harvard C. Pennington. This is the definitive work on the TRS-80 disk 
system. It is full of detailed "How to" information with examples, samples and in-depth explanations suitable tor beginners and 
professionals alike. The recovery of one lost file is worth the price alone. $22.50.* 

• Z-80 ASSEMBLY LANGUAGE PROGRAMMING- BK1177-by 

Lance A. Leventhal. This book thoroughly covers the Z-80 instruc- 
tion set, abounding in simple programming examples which illus- 
trate software development concepts and actual assembly 
language usage. Features include Z-80 I/O devices and interfacing 
methods, assembler conventions, and comparisons with 
8080A/8085 instruction sets and interrupt structure. $12.50.* 

• INTRODUCTION TO TRS-80 GRAPHICS- BK1 180- by Don In- 

man. Dissatisfied with your Level I or Level II manual's coverage of 
graphics capabilities? This well-structured book (suitable for 
classroom use) is ideal for those who want to use all the graphics 
capabilities built into the TRS-80. A tutorial method is used with 
many demonstrations. It is based on the Level I, but all material is 
suitable for Level II use. $8.95.* 

• THE INCREDIBLE SECRET MONEY MACHINE- BK1178-by 

Don Lancaster. A different kind of "cookbook" from Don Lan- 
caster. Want to slash taxes? Get free vacations? Win at in- 
vestments? Make money from something that you like to do? 
You'll find this book essential to give you the key insider details of 
what is really involved in starting up your own money machine. 
$5.95." 

• FREELANCE SOFTWARE PUBLISHING - BK1 179 - by B. J. Korites. "This book is about money and 
how to make it by writing and selling computer programs," (author's foreword). If you have the skills to 
^rite a saleable program, you now need to acquire the skills to sell that program. This compact book 
comprehensively covers the entire publishing process and many aspects of software salesmanship. 
i14.95.* 




Gse the order card in the back of this magazine or itemize your order on a separate piece of paper and mail to 

80 Microcomputing Bookstielf • Peterborough NH 03458 Be sure to include check or detailed credit card information All orders add 'i 1 00 handling 

Please allow 4-6 weeks for delivery Questions regarding your order^ Please vmte to Customer Seriicc at the above address 




y 



RDERIHQ CALL 1 -800-25S-S473 



i.fm<J:iW.i:g?;W;.> 
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microcomputing bookshelf 



r 




'THE BASIC HANDBOOK-BK1174-by David Lien. This book is 
unique. It is a virtual ENCYCLOPEDIA of BASIC. While not favoring 
one computer over another, it explains over 250 BASIC words, how 
to use them and alternate strategies. If a computer does not 
possess the capabilities of a needed or specified word, tfiere are 
often ways to accomplish the same function by using anotfier 
word or combination of words. That's where the HANDBOOK 
comes in. it helps you get the most from your computer, be it a 
"bottom-of-the-line" micro or an oversized monster. $14.95.' 

• ADVANCED BASIC- BK1000- Applications and problems by 
James Coan is for those who want to extend their expertise with 
BASIC. Offers advanced techniques and applications. $9.65.* 

• PIMS: PERSONAL INFORMATION MANAGEMENT SYSTEM - 

BK1009- Learn how to unleash the power of a personal computer 
for your own benefit in this ready-to-use data-base management 
program. $9.95.* 

• PAYROLL WITH COST ACCOUNTING- IN BASIC- BK1001 - 
by L. Poole & M. Borchers, includes program listings with remarks, 
descriptions, discussions of the principle behind each program, 
file layouts, and a complete user's manual with step-by-step in- 
structions, flowcharts, and simple reports and CRT displays. 
Payroll and cost accounting features include separate payrolls for 
up to 10 companies, time-tested interactive data entry, easy cor- 
rection of data entry errors, job costing (labor of distribution), ■ 
check printing with full deduction and pay detail, and 16 different 
printed reports, including W-2 and 941. $20.00.* 

• LOW-COST, PERSONAL COfWlPUTER-BASED INVESTMENT DECISION SYSTEMS- OK1 101 -Use this guidebook by Man- 
Oomputer Systems, Inc's president, Jerry Felsen, to develop inexpensive personal computer systems that can help you make 
better mveslment decisions. $15.00.' 

• HOW TO MAKE MONEY WITH COMPUTERS- BK1003- In 10 information-packed chapters, Jerry Felsen describes more 
than 30 computer-related, money-making, high profit, low capital Investment opportunities. $15.00.* 

• SOME COMMON BASIC PROGRAMS- BK1053-published by 
Adam Osborne & Associates, Inc. Perfect for non-technical com- 
puterists requiring ready-to-use programs. Business programs, 
plus miscellaneous programs. Invaluable for the user who is not 
an experienced programmer. All will operate in the stand-alone 
mode. $12.50 paperback.* 

• WHAT TO DO AFTER YOU HIT RETURN - BK1071 - PCC's first 
book of computer games ... 48 different computer games you can 
play in BASIC ... programs, descriptions, many illustrations. 
Lunar Landing, Hammurabi, King, Civel 2, Qubic 5, Taxman, Star 
Trek, Crash, fvlarket, etc. $10.95.* 

• BASIC COMPUTER GAMES- BK1074-Okay, so once you get 
your computer and are running in BASIC, then what? Then you 
need some programs in BASIC, that's what. This book has 101 
games for you from very simple to real buggers. You get the 
games, a description of the games, the listing to put in your com- 
puter and a sample run to show you how they work. Fun. Any one 
game will be worth more than the price of the book for the fun you 
and your family will have with it. $7.50.* 

• SIXTY CHALLENGING PROBLEMS WITH BASIC SOLUTIONS 
{2nd Edition) -BK1 073 -by Donald Spencer, provides the serious 
student of BASIC programming with interesting problems and 
solutions. No knowledge of math above algebra required. Includes 
a number of game programs, as well as programs for financial in- 
terest, conversions and numeric manipulations. $6.95.* 




V 



Use the order card in the back of this magaiine or itemize your order on a separate piece of paper and mail to 
80 Microcomputing Booiisheif • Peterborough MH 03458. Be sure to include check or detailed credit card information. All orders add S i ,00 handling. 

e to Customer Service at the above address. 



FOR TOLL r ktih ORDERING CALL 1-800-258-5473 



J 
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• THE NEW HOBBY COMPUTERS— BK7340— This book takes it from 
where "HOBBY COMPUTERS ARE HERE!" leaves off, with chapters on 
Large Scale Integration, how to choose a microprocessor chip, an introduc- 
tion to programming, low cost I/O for a computer, computer arithmetic, 
checking memory boards . . . and much, much more! Don't miss this tremen- 
dous value! Only $4.95.* 

• HOBBY COMPUTERS ARE HERE! — BK7322— If you {or a friend) want to 
come up to speed on how computers work . . . hardware and software . . . 
this is an excellent book. !t starts with the fundamentals and explains the 
circuits, and the basics of programming. This book has the highest recom- 
mendations as a teaching aid for newcomers. $4.95." 

• HOW TO BUILD A MICROCOMPUTER— AND REALLY UNDERSTAND 

IT— BK7325 — by Sam Creason. The electronics hobbyist who wants to build 
his own microcomputer system now has a practical "How-To" guidebook. 
This book is a combination technical manual and programming guide that 
takes the hobbyist step-by-step through the design, construction, testing 
and debugging of a complete microcomputer system. Must reading for 
anyone desiring a true understanding of small computer systems. $9.95.* 

• TOOLS & TECHNIQUES FOR ELECTRONICS— BK7348— is an easy-to- 
understand book written for the beginning kit builder as well as the ex- 
perienced hobbyist. It has numerous pictures and descriptions of the safe 
and correct ways to use basic and specialized tools tor electronic projects 
as well as specialized metal working tools and the chemical aids which are 
used in repair shops. $4.95.' 



(Jse the order card in the back of this magazine or itemize your order on a separate piece of paper and mail to 

80 Microcomputing Bookshelf • Peterborough PHH 03458. Be sure to include check or detailed credit card information. All orders add S 1 .00 handling. 

Please allow 4-5 weeks for delivery. Questions regarding your order? Please write to Customer Service at the above address. 



FOR TOLL FREE ORDERING CALL 1-800-258-5473 




10% 

DISCOUNT 

Off 

List 

64K 1 Drive 
$3499.00 



AUTHORIZED 

Radio /haelf 



OKAi.EnA301 



COMPUTER SPECIALISTS 



Popular 16K Level 1 1 System $ 722.00 

26 1145 RS 232 Board 84.00 

26-1 140 "O" K Interface 254.00 

26-1160 AAini Disk 424.00 

26 1171 Telephone Modem 169.00 

Fast 100 CPS Centronics 730 Printer 750.00 

Highly Reliable LoboSVa" Drives 375.00 

Versatile Lobo Interface, 8" Drives 

and IMI Hard Drives Call For Prices 




15% 

DISCOUNT 

Off 

List 

4K Level II 
$527.00 



No Taxes on Out Of 
State Shipments 

Immediate Shipment 
From Stock. 



MICRO MANAGEMENT SYSTEMS, INC. 

DOWNTOWN PLAZASHOPPINGCENTER 
115CSECONDAVE.S.W. 

CAIRO, GEORGIA31728 
912-377-7120 



y^-!2 



Full Factory Warranty 
on All Items Sold. 

VISA, Master Charge 
and COD'S, Add 3% 
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If you enjoy driving, you're going to get a 
COMPUCRUISE. Once you see what it can 
do, you just won't be able to live without it. 



[ 







This gadget tits into most dasliboards ... no strain even in a tiny sports car like the Mazda RX-7 . . and 
once you have it, every trip is like flying a 747. The darned ttiing tells you ttie time, how last you're going, how 
far you've been on this trip or since ttie last regassing, how many miles per gallon you're getting, either at the 
instant or the average on the trip ... or gallons per hour at the moment or lor the trip . . temperature outside 
. . , inside (or coolant temperature, if you prefer) . oh, it has an elapsed time tor the trip, a slop watch, lap 
lime, an alarm . . how much further for your trip, how rnany gallons more the trip will tai<e, how much longer 
tor the trip at your present average speed . . . yes, it gives you your average speed for the trip. You prefer it in 
metric, no strain . . . liters remaining, etc. Did we mention that it also has cruise control either at a speed set 
on the control board or at whatever speed you are traveling? The Compucruise will keep you busy and enter- 
tained during any trip . . . telling you more than you will ever want to know. 

The Compucruise is not difficult to install . . . though it does connect to everything except the cigarette 
lighter. Until you've tried computerized travel, you haven't found out how much fun driving can be, II will work 
on any car not having fuel injection , . , and there is a front-wheel drive accessory gadget available for only 
$4.40-»P001 (regularly $5.50], 

The price for the Compucruise is regularly $199.95 . . . and a bargain at that price. We'll sell you one of Ihese 
fantastic gadgets for $159.95 with cruise control (Model 44-#P002), and $127.95 without (Model 41 -flPOOSj.Send 
money . , , and start having fun! 



MAIL ORDER MICROS - ^ 

Dept A80 • PO Box 427 • Marlboro NH 03455 
Phone: [603] 924-3041 




Steal Stopper 



Ever had your car stolen? 

The first reaction is one of disbelief . . . 

. . . you know it was right therel 

What you want is a modern combination lock on your Ignilion . . . 
The Steal Stopper. It's easy to install and almost impossible to 
defeat. You can by-pass it. if you want, for parking attendants or a 
car wash Other than that, you get a secret four digit code and only 
will then be able to start the car . . . even if you have the keys in 
the ignition. 

This protection retails for $50 . . . but we have a special foi you at 
$39,95. Don't procrastinate Order #P004, 

Note: This product works best on Detroit cars. Mazda RX7 
owners must order additional module, #P008, which costs $8. The 
Steal Stopper can be modified for Mercedes, Porsche, Ferrari, or 
other high performance European cars by returning unit to 
manufacturer with $3. They promise quick modification and return 



SPECIAL 10% DISCOUNT 

rnoM LIST PRICES 

SCOTT ADAMS ADVENTURES 

FOR TRS-80 • SORCERER • APPLE 



«1 ADVENTURELAND 

'OU'LL WANDER IHHOUGH AW EN 
CHANTED LAND ENCOUNTERING 
WILD AWIMALS AND WAOICAL 
BEINGS WHILE VOU TRY TO 
HE COVER LOST TREASURES 
Order «SA1X11T torTRS Leval II 16K. 
•SAOOIS (or So'ca™ 16". KSAMIA 
(or ADDIe 2JK— I13J5 each on 

#2 PIRATE ADVENTURE 

SAIL TO TREASURE ISLAND AND 
THY TO RECOVER LONG JOHN 
SILVER'S LOST TREASURES 
OrdBi «SAOO;T lor TRS Le.el II 1SK 
•SAMJS (or SorcBrer IflX, KSAOOiA 
lor Apple 24K-I13a5eacli.on 
ciiseus. 

13 MISSION IMPOSSIBLE 
ADVENTURE 

SAVE THE WOFtLDS FIRST 

AUTOMAIEO NUCLEAR REACTOR 

WHEN TOU COMPLETE YOUR 

MISSION 

Oracr tSAtX>3T Tor TRS Levei H 16K. 

ISA003S tor Sorcerer 16K »S4003A 

lor Apple 24K-J13J6eatn, on 

#4 VOODOO CASTLE 

SAVE COUNT CRISTO FROM THE 
FIENDISH CURSE OR FOREVER BE 
DOOMED— BEWARE THEVOODOO 
MAN 

Order fSAOWT lor TRS Level II I6H 
ISAl)04S (or Sorcerer I6K. ISAC1U4A 
Inr ApQie !iK— 113 45 each, on 
ca^seile 

»5 THE COUNT 

LOVE AT FIRST BYTE FROM 

YOUR BIG BRASS BED IN 

TRANSYLVANIA 

Orner «SA005T (or TRS Level IM6K. 

USAOOSS lor Sorcerer 16K, (SAOOSA 

Irjr Apple 24K— $13 45each. on 

r,e5aelte 

#6 STRANGE ODYSSEY 

YOU'RE MAROONED AT THE 
SALAiY S EDGE AND DISCOVER 
RUINS OF AN ANCIENT ALIEN 
CIVILIZATION AND TRY TO COPE 
WITH UNEARTHLY TECHNOLOGI Els 
WHILE YOU AMASS FABULOUS 
TREASURES 

Order KSAOOeT lor TRS Le.el II I6K. 
ISAODSS for Sorcerer 16K. «SAOMA 
lor Apple 24K-J13 J5escn.on 
oa^^elte 

#7 MYSTERY FUN HOUSE 

FIND YOUR WAV THROUGH THE 
STRANGEST FUN HOUSE BEFORE 
THE WEIRD F'ARK CLOSES 
Order nSAOOTT lor TRS Le.el II ISK. 
eSAOOJ'S tor Sorcerer IBK. SA007A (or 
Apple !iK-I1}46 each, on caiaelte 

#e PYRAMID OF DOOM 

AN EGYPTIAN TREASURE HUNT 
THROUGH A NEWLY UNCOVERED 
PYRAMID, COMPLETE WITH AN 
CIENT CURSE 

Order »SAO0BT lor TRS Le«l II 16K, 
•SAOOBS lor Sorrl^erer TEX, »SAOiMA 
lor Apole 2JK-J1345 each, on 
aE^E^tte 



BRAND NEW* TRS-80 LEVEL II 16K 

and accessories at FANTASTIC SAVINGS 

LEVEL II 16K COMPLETE $730 #TRS-001 

16K EXPANSION UNIT $425 #TRS-002 

32K EXPANSION UNIT $525 #TRS-003 

DISK DRIVES $425 each (Specify vi/hich drive you want) #TRS-004 

FRICTION MODEL PRINTER $889 #TRS-005 

TRACK MODEL PRINTER $1350 #TRS-066 

TERMS: Shipment normally within one week of receipt of your order {with 
cashier's check, money order, or credit card) for microcomputer and three 
weeks for accessories {checks take two weeks extra to clear bank). ADD $2.50 
PER ITEM for HANDLING. Everything will be sent to you with UPS freight 
charges COLLECT. 

'NOT UPGRADED USED OR RECONDITIONED LEVEL I's WITH OLD 
KEYBOARDS BUT BRAND SPANKING NEW TRS-80's IN FACTORY CAR- 
TONS WITH FULL FACTORY WARRANTY! COMPARE PRICES AND 
QUALITY AND ORDER FROM MOM's. 



INSTANT SOFTWARE 

HALF PRICE SPECIAL 
CLOSEOUT— 0NLY$4 
TRS-ao, Level I, Games 

Knights Ouesl/Bobot Chase 4K- 

#1510003. 

Cave Exploring l6K-#ISi0010, 

Doodles & Display 16K-»ISI0030, 

Fun Package! 16K-«ISI0041, 

TRS-80, Level t. Finance 

Status of Homes 4K-«ISI0012. 

TRS-80, Level II. Hobby 

Mordel Rocketry Analyzer- 
#1510024. 



HEAD ALIGNMENT Kir 

I Best cassette recorder tape head 
I alignment kit available. Solves 
loading problems. flKOOl-only 
$9,95. 



MOM'S SOFTWARE 

SPEED READING 
COURSE 

Could be the most 
important program 
you'll ever buy. 

Only £5 per cassette 
Order «R2001, 



HONEYWELL 

1 15 Honeywell ASR-33 Communi- 
cations Consoles with TTY. 
paper tape reader and punch. 
Used, working when removed 
from service. Shipped freight 
collect or you pick up. Weight] 
300 lbs. $395. Order #P006, 



PANASONIC 

TAPE DECKS 

Panasonic R5261 US Stereo 
Cassette Decks— with auto-stop, 
record level adjust, VU meters, 
used condition, all tiave had 
heads replaced and aligned 
«T001-$50, 

Panasonic RS260 US Stereo 
Cassette Decks— same as above, 
but also has bias switch for 
chrome tapes. #TO02-$5O. 

TERMS: FOB Marlboro, NH USA Limited 
stock; everything guaranteed as described; 
you pay postage on returns. PRINT orders 
clearly Minimum order 110 plus $2 50 ship- 
ping ana tianOling charge in USi only. 
DOUBLE THAT ELSEWHERE. Orders Over 
S50 add 5Vo tor shipping in USA, 10% 
elsewhere (we will refund e/cess). Orders 
shipped UPS or insured mail only. No CODs 
please. Send US (unds by check or money 
order For credit card purchases, add 4°/(i, 
lisl AE, l«IC or VISA, number, and expiration 
MOM'S, Department A80, PO Box 427, 
.Maiiboro NH 03455 



1^ Reader Sen/ice — seepage 147 
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so PREVIEW 



WHAT TO LOOK FOR IN THE MAY 

MASS STORAGE ALTERNATIVES BUSINESS 



^ 



Until recently you could only use slow (but cheap} cassettes, or 
fast (but expensive) disks as mass storage on your TRS-80, Now 
you have alternatives, the Stringy Floppy from Exatron and the 
Beta-80 transport from Meca. Find out w/hat they can do, and how 
they do it^in the May issue of your favorite magazine. 



LANGUAGES 

Parlez-vous BASIC? FOR- 
TRAN? C? Forth? Pascal? En- 
glish? The list goes on, more 
and more computer languages 
are becoming available for the 
TRS-80 system. What advan- 
tages do languages other than 
BASIC have, and how do they 
work? Next month we shed 
light on some of the non-basic 
languages. 



CAR- 
POOLING 

With the price of gasoline 
reaching new heights, more 
people than ever are thinking of 
carpooling. This program can 
be used to find those who are 
close enough together to con- 
sider this energy saving trans- 
portation method. 



LEVEL I 

TAPE 

MONITOR 

Having trouble finding the 
correct volume setting for dif- 
ferent tapes? This neat utility 
displays a continuous graph, to 
indicate at which level the data 
is OK. Adjust your volume in 
real time, and save time. 



PROGRAMS 

Good business software is 
hard to find, but the demand is 
vlrtuaily insatiable. What needs 
to be thought out in business 
programs, and how do you go 
about making them people- 
proof? Remember that the end 
user probably doesn't know a 
PEEK from a POKE, and if the 
software crashes so might the 
business. Read how one pro- 
grammer approaches the prob- 
lem, in the next issue of 80. 

ALL THIS PLUS 
MUCH MORE! 
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READER SERVICE 

This card is valid until July 31, 1980 



Please help us to brinc| you a 
better magazine — by answering 
these questions. 



I. What is your age? 

n A. under 18 ■ 
D B. 18-22 
D C, 23-40 
D 0.41-60 
D E. over 60 

II. What li your occupation? 

D 1. Professional 
D 2. Engineer 
G 3, Data processing 
n 4. Business 
C 5. Education 
D 6. Technician 
D 7. Student 
rj 8, Other 

III. What are your primary applica- 
tions of your TRS-80 (check only 
two)? 

D A. Business 
D B. Games 
n C. Home 
U D. Education 
P E. Scientific 
U F, Control 
D G. Music 

IV. Your TRS-80, is it a 

□ 1. Level I 
D 2. Level II 

□ 3. Modei li 

D 4. Don't own one yet 



V. What peripherals do you have 
(check all that apply)? 

□ A. Expansion interface 
D B. Disk 

n C. Printer 

VI. How much have you spent on 
hardware? 

n 1, less than $500 

□ 2. $500-1,000 
D 3. $1,000-2,000 

□ 4. $2,000-4,000 
D 5. $4,000-6,000 

D 6. more than $6,000 

VII. How much have you spent on 
software? 

I 1 A, less than $100 

U B. $100-250 

D C. $250-500 

D D. $500-1,000 

n E. more than $1,000 

VIII. What Is your level of educa- 
tion? 

D 1. Post-graduate 

□ 2. College 

D 3, High school 

IX. How many people read your 
copy of 80 Microcomputing? 

U A, 1 
C B. 2 

n c. 3 

U D, 4 or more 

X. If you are not a subscrlt>er 
please circle number 500. 
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Reader Service: To receive more information from any of the advertisers in this 
issue of 80 Microcomputing, circlet lie number on the postage-paid Reader Service 
Card that corresponds with the Reader Service number on the ad in which you are 
interested. You will find numbers, preceded by a t^, near the logo of each adver- 
tiser. Complete the entire card, drop into a mailbox and in 4-6 weel<s you will hear 
from the advertiser directly. 
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Ask for Instant Software at a computer store near you 



Alabama 

Anderson Computers 

3156 Uniuersily Dr , HunlsviMe 

Compulerland of Hjnlsuille 

3020 Umversity Dr., Huntsville 

Olensky Bros. 

3763 Alrpoil BlvQ., Mobile 

Arizona 

Ham Shack 

4506-A N. 16th SI., Phoenii 

MlllelsTVa Radio 

621 East Broadway, Mesa 

California 

Byle Shop of FairfietO 

67 Marina Cenler SI , SuiBjn City 

Byte Shop 

8038 Clairmont Mesa Blvd., 

San Diago 

Byte Shopol Ml. View 

1415 West El Cammo Real, Ml View 

Byie Shop ol Sacramenlo 

6041 Greenback Ln., Citrjs Heighls 

Capital Compuler Systems 

3396 El Camino Ave . Sacramento 

Computers Made Easy 

819 East Ave 0-9, Palmdale 
Computer Store of Sar Leandro 
701 MacArlhur Blvd , San LeanOro 
Compuler World 

6791 Weslminster Ave.. Westminster 

Compulerland 

1672Q S. Hawthorne, Lawndale 

Compulerland ot W. LA 

6840 La Cienega Blvd., inglewood 

Coast Electronics 

31iaNo MainSLMorroBay 

Compulerland 

24001 via Fabricante No 904, 

Mission Viejo 

HobBi-trorvics 

1376 So. Bascom Ave., San Jose 

Hobby World 

19511 Business Ctr Dr.. Unit 6 

Borthridge 

I.C.E House Inc. 

398 Norih E. SI , San Bernardino 

Jade Computer Products 

4901 W Rosecrans, Hawthorne 

OpamplTechnicai Books 

1033 N Sycamore Ave., Los Angeles 

0.1 Computers. Inc 

15816 Hawthorne Blvd., Lawndale 

Radio Shack Dealer 

8250 Mira Mesa Bivd . San Diego 

Sanla Rosa Compuler Center 

604 71h St.. Sanla Rosa 

Sliver Spur Eiecl Comm 

13552 Central Ave.. Chmo 

The Compuler Store 

820 Broadway. Sanla Monica 

Colorado 

Byle Shop 

3464 S. Acoma SI , Englewood 
Colorado Compuler Systems 
311 W 74ih Ave . Westmmsler 

Compulerland of Norlh Denver 
8749 Wadsworth Blvd . Arvada 
The Computer Store 
2300WellonSI . Denver 

Connecticut 

American Business Computers 

454 Thames St., Groton 

Computeriab 

130 Jeflerson. New London 

Compulerland 

1700 Post Rd., Fairfield 

Computer Works 

1439 Post Rd. E , Liberty Plaza, 

Weslport 

D.C. 

The Program Slore 

4200 Wisconsin Ave.. N.W., 

Washington, D.C. 

Florida 

Adventure Inlernational 

200 Bald Cypress CI., Longwood 

AMF Electronics 

11146 N.30lh St., Tampa 

Boyd-Ebert Corporalion 

1328 West 15lh St , Panama City 

Compuler Cenler 

6578 Central Ave , St. Petersburg 



Computerlarid ol PL Lauderdale 
3963 N. Federal Hwy , Ft. Lauderdale 

ComputerlanO ol Jacksonville 

2777-6 University Blvd. W. 

Jacksonville 

Computer Shack 

3336 Beach Blvd., Jacksonville 

Curtis Waters Enterprises 

236 Talbol Ave., Melbourne 

Healh Kit Electronic 

4705 W. 16th Ave. Center, Hialeah 

HIS Compulermalion 

1295 Cypress Ave , Melbourne 

Sound Ideas 

2201-C N.W. 13th, Gainesville 

UWalan Compuler Store 

Airport Rd , Deslin 

Williams Radios TV Inc. 

2062 Liberty St., Jacksonville 

Georgia 

Atlanta Compuler Mart 

Atlanta 

Compulerland ol Atlanta 

2423 Cobb Parkway, Smyrna 

Hawaii 

Compulerland of Hawaii 
567 N. Federal Hwy , Honolulu 
Radio Shack Assoc. Slore 
1712S. King St , Honolulu 

Idaho 

Electronic Specialists 
8411 Fain/iew Ave, Boise 

Illinois 

Bloominglon Normal 

Computer Works 

124 E Beauforl, Normal 

Compulerland 

4507 North Sterling. Peoria 

Compuler Station 

3659 Nameoki Rd , Granite City 

Midwest Micro Computers, Inc. 

708 S. Main St , Lombard 

Indiana 

Computer Cenler of South Send 
51591 US31 Norlh, South Bend 
Data Domain 
221 W. Dodds, Btoomirglon 

Iowa 

Memory Bank 

4128 Brady El , Davenport 

Kansas 

Central Kansas Computers 
6 S. Broadway. Hermglon 
Louisiana 

Computer Shoppe Inc 

3225 Danny Park. Suite 222. Iilelalrie 

Maine 

Radio Shack 

315 Mam Mall Rd . So Porlland 

Maryland 

JacK Fives Electronics 

4608 DeOilen Circle. Piitesville 

The Comm Center 

9624 Ft. Meade Rd.. Laurel 

Massachusetts 

ComputerCity 

irSMainSt.Charlestown 

ComputerCity 

50 Worcester Rd., Frammgham 

Compulerland of Boston 

214 Worcester Rd , Wellesley 

Computer Packages Unlimited 

244 W Boylslon SI., West Boylslon 

Lighthouse Computer Software 

14 Fall River Ave . Rehobath 

New England Eleclronics Co. 

679 Highland Ave., Needham 

The Compuler Slore 

120 Cambridge St , Burlington 

Tufis Radio 8 Electronics 

206 Mystic Ave , Medford 

Michigan 

Computer Cenler 

28251 Ford Rd , Garden City 

Compuler Connections 

38437 Grand River, Farmington Hills 

Compulerland ol Grand Rapids 

2927 2Blh St. S.E., Kenlwood 

Compulerland of Rochester 

301 S. Livernois. Rochester 

Compulerland of Soulhheld 

29673 Northwestern Hwy., Southfield 



Compuler Marl 

560 W 14MileRd.,Clawson 

Hobby House 

1035 W. Territorial Rd., Bailie Creek 

Ve Olde Teacher Shoppe 

1823 Wilmyre SI . Ypsilanti 

Minnesota 

Compulerland ol Hopkins 
11319 Hwy F, Hopkins 

Minnesota Sollware Inc. 

5422 Fisher St.. While Bear Lake 

Zim Computers 

5717 Xerxes Ave . N. Brooklin Center 

Mississippi 

Dyer's, Inc. 

200 E, Mam St , West Point 

Missouri 

Computervan, Inc. 

51 Florissant Oaks Shopping Center 

Florissant 

Consolidated Sollware 

16501 Greenwald Court, Belton 

Montana 

tnlermountain Computer 

529 So. Sin St.. Livingslon 

Personal Computer 

121 Red Oak Dr., Carl Junction 

The Compuler Slore 

1218 16th St W ft35, Billings 

Nebraska 

Compulerland of Omaha 
11031 Elm St.. Omaha 
Midwest Computer Co Inc 
8625 I SI., Omaha 
Midwesl Computer Co. Inc. 
4442 S. a4th SI . Omaha 
Midwest Computer Co. Inc 
4403 S. 871h Si , Omaha 

Nevada 

Ceniury 23 

4566 Spnng Mountain Rd , Las Vegas 

New Hampshire 

Bitsnbyles Computer Center 

568 Pleasant Si , Concord 

ComputerCity 

1525 S Willow, Manchester 

Portsmouth Compuler Cenler 

31 RaynesAve., Porisinouih 

Radio Shack Assoc Slore 

Fairbanks Pla^a, Keene 

New Jersey 

Computer Encounter 

2 Nassau St., Princeton 

Compulerland 

35 Plaza Rte. 114, W Paramus 

Compuler Mart of NJ 

501 Rie. 27, Iselln 

Dave s Eiectronics 

Pennsville Shopping Ctr., Pennsville 

Lashen Electroriics Inc. 

21 Broadway, Denvllle 

Personal Computing Inc 

51 Central Sg., Linwood 

Radio Shacki'JSJ Eleclronic 

Mansfield Shopping Ctr 

Rl 57 Allen Rd . Hacketlstown 

The Bargain Brothers 

Glen Roc Shopping Center 

216 Scotch Road, Trenloh 

The Computer Emporium 

BIdg. 103, Avenues ol Commerce 

2428 Rte. 38, Cherry Hill 

New Mexico 

Anlel Electronics Co. 

232 Wisconsin 1^ E.. Albuquerque 

Legey and Associates 

2906 Tahiti CI N.E., Albuquerque 

Mitchell's Music (Radio Shackl 

407 W. Church, Carlsbad 

South West Computer Cenler 

121 Wyatt Drive Suite 7. Las Cruces 

New York 

Anslo Crall 

314 Fillh Ave, NYC 

Bits 5 Bytes 

2800 Straight Rd., Fredonia 

Computer Corner 

200 Hamilton Ave., While Plains 

Compuler Era Corp. 

1570 3rd Ave, New York 

Computer Factory 

485 Lexington Ave , NYC 



Instant Software Inc 



Computer House, Inc. 

721 Atlantic Ave , Rochesler 

Compulerland of Nassau 

79 Westbury Ave , Carle Place 

Computer World 

519 Boston Post Rd., Port Chester 

Comtek Electronics, Inc. 

2666 Coney Island Ave., Brooklyn 

Comtek Electronics, Inc 

Slaten Island Mall 

Store 220A, Slalen Island 

Home Compuler Center 

571 Monroe Ave , Rochester 

Key Electronics 

Schenectady 

Mr. Compuler 

Imp. Plaza, RIe 9, Wapplngers Falls 

Soltron Systems 

308 Columbia Turnpike, Rensselaer 

The Compuler Tree Inc. 

409 Hooper Rd , Endwell 

Upstate Compuler Shop 

629 French Rd , Campus Plaza 

New Hartford 

North Carolina 

Byte Shop ol Raleigh 

1213 Hillsborough SI , Raleigh 

Ohio 

Allalr Business Syslems, Inc. 
5252 North Dixie Dr., Dayton 
Aslro Video Electronics 
504 E. Mam St , Lancaster 
Cincinnati Computer Store 
4816 Interstate Dr., Cincinnati 
Compulerland 
4579 Great Northern Blvd., 
N.OImstead 
Compulerland 

6429 Busch Blvd., Columbus 
Compulerland 

1288 Som Rd., Mayfield Heights 
Computer Store of Toledo 
IS Hlllwyck Dr, Toledo 
Forbees Microsystems Inc. 
35 N. Broad, Fairborn 
Microcomputer Center 
7900 Paragon Rd. Daylon 
Micro-Mini Computer World 
74 Roblnwood. Columbus 
Universal Amateur Radio, Inc. 
1280 Aida Dr., Columbus 

Oklahoma 

Sounds, Etc. 
Hyw. 33, Watonga 
Vern Street Products 
Radio Shack Dealer 
114 W. TaltSl., Sapulpa 

Oregon 

Compulerland ol Portland 
12020 S.W. Mam SI , TIgard 
Compuler Pathways Unlimited. Inc 
2151 Davcor St S E., Salem 

Pennsylvania 

Audio Marl 

518 Fifth Ave., New Brighton 

Artco Elect. 

302 Wyoming Ave., Kingston 

Arico Elect. 

Back Mounlain Shop. Cir. 

Shave rtown 

Compuler Workshoppe 

3848 William Penn Hwy, Monroeville 

Compulerland of Harrisburg 

4644 Carlisle Pike. Mechanlcsburg 

Erie Compuler Co 

2127 West 8th St., Erie 

Mighty Byte Compuler Center 

537 Easton Rd , Hersham 

Personal Computer Corp. 

24-26 West Lancaster Ave , Paoli 

Personal Compuler Corp. 

Frazer Mall. Lancaster Ave , Frazer 

Rhode Island 

Computer City 

165 AngellSt., Providence 

South Dakota 

CB Radio Shack 

21sl and Broadway, Yankton 

Tennessee 

Computeriab 

671 S. Menden Hall Rd., Memphis 

H a H Electronics Inc. 

509 N. Jackson Sl„ Tullahoma 

Texas 

Computer Porl 

926 N Collig, Arlington 

Houston Microcomputer Tech. 
5313 Bissonel. Bellaire 



KA EleCI, 

9090Slemmons Frwy., Dallas 

Pan American Elect. Inc. 
1117 Conway, Mission 

Flam Micro Systems 

6353 Camp Bowie Blvd., Fl Worth 

Utah 

Quality Technology 

470 E. 2na So , Salt Lake City 

Virginia 

Home Computer Center 

2927 Virginia Beach Blvd. 

Virginia Beach 

Soulhside Radio Comm. 

135 Pickwick Ave , Colonial Heighls 

Washington 

American Mercantile Co. Inc. 
2418 Isl Ave. S., Seattle 
Compulerland ol Soulh King Co. 
1500S. 336 SI., Suite 12 
Federal Way 

Magnolia Micro Syslems 
2ai2Thorndyke Ave , Seattle 
Personal Computers 
S 104 Freva. Spokane 

Ye Old Computer Shop 

1301 G Washington, Richland 

West Virginia 

The Compuler Coiner Inc. 

22 Beechursl Ave., Morganlown 

The Computer Slore 

Municipal Parking BIdg., Cfiarleslon 

Wisconsin 

Byte Shop Of Milwaukee 

6019 West Laylon Ave., Greenheld 

Pelted Microsystems 

4265 W, Loomis Rd., Milwaukee 



Puerto Rico 

The Microcomputer Slore 
1568 Ave. JesusT Pinero 
Caparra Terrace 

Canada 

CANADIAN DISTRIBUTORS: 

Micron Distributing 

409OueenSt,W Toronto, Cnt. 

M5V 2A5 

Compulerland of Winnipeg 

715 Portage Ave . Winnipeg, Man 

Com pu mart 

411 Roosevelt Ave . Ottawa. Onlario 

Computer Marl Lid 

1055 Yonge SI . Suite 208 

Toronto, Ontario 

Galaclia Computers 

103;d Ave . Edmonton, AlOerla 

Micromalic Syslems Inc. 

101 8136 Park Rd.. Richmond, B.C 

Micro Shack of W Canada 

333 Park Street. Regma. SasK. 

Orthon Holdings Lid 

12411 Stony Plain Road 

Edmonton, Alberta 

Total Compuler Syslems 

Aiax, Onlario 

England 

Tamays S Farr Ltd. 

4 Morgan St., London 

France 

Sideg 

45 Rue de la Chapelle, Paris 

Sivea s.a. 

20, Ruede Leningrad, Pans 

Italy 

HOMICs.r i 

Piazza De Angeli 1, Milano 

West Germany 

Electronic Hobby Shop 
Kaiserslr. 20, Bonn 
MicroShop Bodensee 
Marksir 3, 7778 Markdorf 

Australia 

Computerware 

62 Paisley SI., Footscray VIC 

Deforest Software 

36 Glen Tower Drive 

Glen Waverly, VIC 

Softronics Microsystems 
Lindtield 

Sure-Load Software 

P.O. Box 26, Weston, A. C.T. 

South Africa 

Eddie Talberg 

P.O. Box 745, Johannesburg 



Peterborough, New Hampshire 03458 603-924-7296 i 
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STARTER KIT 

EXATRON STRINGY FLOPPY FOR THE TRS-80 



Recommended initial purchase: 

Exatron Stringy Floppy with Level III BASIC S249.50 

5 Wafers each: 5', 10', 2&', 50' 40.00 

Bus Extender, 2-for-1 15.00 

ESF Machine Language Monitor 9.95 

(Plus shipping and tax if applicable) S314 45 



SPECIAL PRICE FOR THIS STARTER KIT 
Sales Tax (California only} 
Shipping and Handling 

TOTAL 



S299.50 



3.00 



For more information see the current Exatron Stringy Floppy Owners Association Newsletter in Microcomputing. 

Slrirtgy Floppy is a trademark of Exatron Corporation. 

HOT LINE (For Calls Outside CA) 800-538-8559 



If you have any questions about the product, about Exatron", or 
ESFOA, please call the Hot Line. Address letters to ESFOA, 3559 
Ryder St., Santa Clara, CA 95051. 
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excellence m electronics 



exatron 

3555 Ryder Street ■ Santa Clara, California 95051 
(408) 737-7111 



